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ABSTRACT 
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APL PROGRAMMING GUIDE 


THIS GUIDE IS A COMPILATION OF KEY CONCEPTS, CODING 
TECHNIQUES, IDIOMS , GUIDELINES, AND TRADE-OFFS IN APL 
PROGRAMMING. IT IS INTENDED FOR. INTERMEDIATE AND ADVANCED APL 
PROGRAMMERS WHO ARE FAMILIAR WITH APL SYNTAX AND OPERATIONS AS 
FOUND IN THE APL LANGUAGE MANUALS AND SIMILAR PUBLICATIONS. ITS 
GOAL Is TO SHOW GOOD IMPLEMENTATIONS OF BASIC APL DATA 
PROCESSING OPERATIONS. 


THIS VOLUME COVERS VECTOR OPERATIONS TOPICS IN APL 
PROGRAMMING. If IS DESIGNED TO BE A REFERENCE MANUAL. THE 
INFORMATION INCLUDED IS CATEGORIZED ACCORDING TO THE TYPE OF 
OPERATION PERFORMED AND THE DATA BEING PROCESSED. THE TABLE OF 
CONTENTS IS INTENDED TO SERVE AS THE PRIMARY MEANS FOR LOCATING 
THE APL CODE FOR A SPECIFIC OPERATION. 


THIS GUIDE IS. BASED ON EXPERIENCE WITH IBM APLSV SYSTEMS. 
WHERE APPROPRIATE, THE TECHNIQUES HAVE BEEN CODED.SO AS NOT TO 
BE DEPENDENT ON .ANY APL SYSTEM IMPLEMENTATION. HOWEVER, THE 
READER MUST DETERMINE WHETHER OR NOT CODE CHANGES ARE NECESSARY 
FOR EXECUTION ON ANOTHER APL SYSTEM. CERTAIN CODE 
IMPLEMENTATIONS MAY HAVE TO BE SPLIT INTO ADDITIONAL STATEMENTS 
IF THE ORDER OF. EXECUTION OF OTHER APL SYSTEMS REQUIRES THIS. 


IT IS THE PHILOSOPHY OF THIS GUIDE TO SHOW OWLY THE BASIC 
CODE NECESSARY. TO - PERFORM A GIVEN OPERATION. ONLY A _ FEW 
TECHNIQUES ARE ILLUSTRATED AS COMPLETELY-DEFINED APL FUNCTIONS. 
IT IS LEFT TO THE READER TO COMBINE THESE BASIC COMPONENTS INTO 
STANDARDIZED SUBROUTINES OR LARGER FUNCTIONS AS DEEMED 

APPROPRIATE FOR AN APPLICATION. 
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MORE THAN ONE IMPLEMENTATION OF A TECHNIQUE IS SHOWN WHEN 


THERE ARE. SIGNIFICANT DIFFERENCES IN THE NATURE OF THE 


IMPLEMENTATIONS. EACH IMPLEMENTATION IS THE “BEST ONE FOR ITS 
PARTICULAR APPROACH. THE ORDER IN WHICH THE IMPLEMENTATIONS ARE 
LISTED FOR EACH TECHNIQUE OR EACH TRADE-OFF JIS BASED ON 
MEASUREMENTS OF THE TIME TAKEN TO PROCESS A VECTOR OF ABOUT 
25 ELEMENTS. THE FASTEST IMPLEMENTATION Is SHOWN FIRST. 


THE READER IS CAUTIONED, HOWEVER, THAT SUCH CHARACTERISTICS 
AS EXECUTION SPEED, STORAGE REQUIRED, DATA REPRESENTATION AND 
HANDLING, ETC., ARE DEPENDENT ON THE APL SYSTEM IMPLEMENTATION. 
THESE CHARACTERISTICS MAY ALSO CHANGE AS AN APL SYSTEM I8 
‘MODIFIED AND. IMPROVED. THEREFORE NO EXPLICIT MEASUREMENTS OF 
THESE CHARACTERISTICS HAVE BEEN INCLUDED IW THIS GUIDE. 
READERS WHO CONSIDER THESE CHARACTERISTICS IMPORTANT IN THEIR 
APPLICATIONS SHOULD DETERMINE THEM FOR EACH TECHNIQUE ON. THE 
APL SYSTEM WHICH THEY ARE USING. 
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EXECUTION SPEED CAN ALSO VARY WITH THE LENGTH AND NATURE OF 
THE VARIABLES PROCESSED. AN IMPLEMENTATION WHICH IS FASTER FOR 
SMALL VARIABLES MAY BE SLOWER FOR LARGE ONES. SIMILARLY, 
LOGICAL DATA (BITS) MAY BE HANDLED MORE SLOWLY THAN BYTE OR 
INTEGER DATA. 
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THE IMPLEMENTATIONS SHOWN IN THIS GUIDE ‘ARE LARGELY 
NON-LOOPING SOLUTIONS USING THE POWER OF APL PRIMITIVE FUNCTIONS. 
THE READER SHOULD BE AWARE, HOWEVER, THAT IMPLEMENTATIONS WITH 
LOOPING CAN BE FASTER AND MORE EFFICIENT FOR LARGE DATA 
VARIABLES IN CERTAIN SITUATIONS. LOOPING WILL ALSO HELP AVOID 
“WS FULL” INTERRUPTIONS, ALLOWING LARGER VARIABLES TO BE 
PROCESSED. 


SOME ALTERNATE IMPLEMENTATIONS WHICH ARE KNOWN TO BE POORER 
HAVE BEEN INCLUDED IN ORDER TO DOCUMENT THEIR EXISTENCE AS 
VARIATIONS. CERTAIN ONES FOUND IN OLDER APL FUNCTIONS 
REPRESENT EARLIER SOLUTIONS DEVELOPED BEFORE NEW APL PRIMITIVE 
FUNCTIONS WERE ADDED TO THE LANGUAGE. SOME OF THE ALTERNATE 
IMPLEMENTATIONS, WHILE LESS EFFICIENT FOR PERFORMING THE ENTIRE 
TECHNIQUE, MAY NEVERTHELESS BE BETTER IN A SPECIFIC APPLICATION 
WHERE THEIR INTERMEDIATE RESULTS ARE ALSO USEFUL OR ALREADY 
AVAILABLE FROM PREVIOUS PROCESSING. THE FINAL RESULT MIGHT BE 
OBTAINED FASTER BY STARTING WITH THE INTERMEDIATE DATA THAN BY 
PROCESSING FROM SCRATCH WITH THE FASTEST TECHNIQUE. MINOR 
VARIATIONS IN IMPLEMENTATION, E.G., COMPLEMENTARY OPERATIONS, 
ARE GENERALLY OMITTED. THE NOTATION “++” MEANS “IS THE SAME AS”. 


EXPLANATIONS OF THE DETAIL-PROCESSING OCCURRING IN THESE 
TECHNIQUES ARE INCLUDED ONLY WHERE THEY WERE CONSIDERED 
NECESSARY, READERS WHO SEEK A SPECIFIC TECHNIQUE MAY SIMPLY 
COPY THE CODE AND VERIFY THE DESIRED OPERATION AND RESULTS. 
THOSE WHO WANT TO INCREASE THEIR GRASP AND UNDERSTANDING OF 
APL PROCESSING ARE ENCOURAGED TO STUDY THE CODE IN DETAIL. 
THIS CAN CONSIST OF FIRST WORKING IT OUT ON PAPER AND THEN 
EXECUTING EACH PORTION IN SEQUENCE TO EXAMINE THE RESULTS. THIS 
EXERCISE PROVES TO BE A VERY GOOD WAY TO UNDERSTAND AND MASTER 
APL SEMANTICS AND PROGRAMMING LOGIC. IT CONTRIBUTES TO THE 
ABILITY TO RECOGNIZE ENTIRE TECHNIQUES OR “IDIOMS” OF APL WHEN 
SUBSEQUENTLY READING APL PROGRAMS. SOME OF THESE TECHNIQUES 
ARE THEMSELVES COMBINATIONS OF SEVERAL SIMPLER TECHNIQUES. 


CERTAIN BRIEF APL OPERATIONS OCCUR REPEATEDLY IN THESE 
TECHNIQUES. THEY CAN BE THOUGHT OF AS “KERNEL” APL OPERATIONS 
AND ARE IDENTIFIED AS SUCH IN THE TEXT. WHILE THEY ARE NOT 
NECESSARILY USED TO PRODUCE FINAL RESULTS IN THEMSELVES, THEY 
FORM THE BASIS FOR MANY OTHER MORE COMPLEX TECHNIQUES. 
THEREFORE THEY ARE WORTH RECOGNIZING AND LEARNING. 
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MANY OPERATIONS ARE SHOWN WITH A GENERALIZED TEST VARIABLE, 
E.G., @ , AND THEY MAY BE USABLE FOR EITHER NUMERIC OR CHARACTER 
DATA. IN APPLICATIONS WHERE ONLY ONE KIND OF DATA IS PROCESSED, 
THE SPECIFIC DATA ELEMENTS, E.G., 0 OR * ', MAY BE SUBSTITUTED 


IN THE EXPRESSION RATHER THAN ASSIGNING THEM TO THE VARIABLE. 


WHEREVER POSSIBLE AND APPROPRIATE, THE IMPLEMENTATIONS OF 
THESE TECHNIQUES ARE CODED TQ EXECUTE THE SAME REGARDLESS OF 
THE VALUE OF THE INDEX ORIGIN QI0. THIS IS DONE TO INCREASE 
THE USABILITY OF THE TECHNIQUES. HOWEVER IT FREQUENTLY MAKES 
THE APL CODE MORE DIFFICULT TO READ AND MORE CUMBERSOME. IF A 
TECHNIQUE Is TO BE EXECUTED IN AN ENVIRONMENT WITH AN 
UNCHANGING INDEX ORIGIN, IT IS SUGGESTED THAT THE READER 
SUBSTITUTE THE ORIGIN VALUE FOR (QOIO WHERE IT APPEARS IW THE 
CODE AND THEN SIMPLIFY THE APL EXPRESSIONS |. WHICH RESULT. 
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THE PAGES OF THIS GUIDE HAVE BEEN FORMATTED AND GENERATED 
BY EXECUTION OF APL FUNCTIONS. IN ALMOST ALL CASES THE RESULTS 
SHOWN FOR EACH OPERATION HAVE BEEN GENERATED BY ACTUALLY 
EXECUTING THE ILLUSTRATED APL CODE. THE CODE FOR ALTERNATE 
IMPLEMENTATIONS HAS BEEN EXECUTED AND THE RESULTS COMPARED WITH 
THE MAIN ILLUSTRATION. CODE WHICH IS AFFECTED BY THE INDEX 
ORIGIN HAS BEEN EXECUTED IN BOTH ORIGINS AND THE RESULTS 
COMPARED (WITH ANY NECESSARY ADJUSTMENTS). THEREFORE THE 
CORRECTNESS OF THE CODE SHOWN FOR EACH TECHNIQUE HAS BEEN 
VERIFIED IN THE PROCESS OF GENERATING THESE PAGES. 


READERS WHO KNOW OF OTHER "BETTER IMPLEMENTATIONS OF ANY 
TECHNIQUE OR WHO DETERMINE IMPROVEMENTS TO ANY IMPLEMENTATIONS 
SHOWN IN THIS GUIDE ARE REQUESTED TO SEND THIS INFORMATION TO 
THE EDITOR. CONTRIBUTIONS AND SUGGESTIONS FOR ADDITIONAL 
TECHNIQUES ARE ALSO WELCOME. 


THE EDITOR IS INDEBTED TO MANY APL PROGRAMMERS, BOTH KNOWN 
AND UNKNOWN, FOR THE CODE WHICH HAS BEEN INCLUDED. IN THIS 
GUIDE. SPECIAL APPRECIATION IS EXTENDED TO THE REVIEWERS, WHO 
CONTRIBUTED IMPROVEMENTS TO THE CODE, THE TEXT, AND THE FORMAT 
OF THIS GUIDE. 


CERTAIN MATERIAL IDENTIFIED BY FOOTNOTES HAS BEEN ADAPTED 
FROM THE PUBLICATIONS LISTED BELOW. SOME OF THE MATERIAL IS 
UNCHANGED EXCEPT FOR VARIABLE WAMES AND APL SYSTEM DIFFERENCES. 


1. PERLIS, ALAN J., AND RUGABER, SPENCER, [HE APL IDIOM LIST. 
RESEARCH REPORT 87, YALE UNIVERSITY DEPARTMENT OF 
COMPUTER SCIENCE, APRIL 1977. 
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2. SMITH, ROBERT A., BOOLEAN FUNCTIONS AND TECHNIQUES, 
WORKING MEMORANDUM NO. 106, SCIENTIFIC TIME SHARING 
CORPORATION, FEBRUARY 1975, REVISED JULY 1975. 

3. SYKES, ROY A., YSE AND MISUSE OF APL - EEFICIENT CODING 
TRCHNIQUES, SHARE XL, MARCH 7, 1973, SCIENTIFIC TIME 
SHARING CORPORATION. 
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VECTOR OPERATIONS -- [ABLE QF CONTENTS 


CREATING A VECTOR Vi cucecvecennvvcavsvcesreesesseeseseseseseses 


‘BY CATENATION . eoaeaeoeeeeee ee ee ee eee ee eee eoeenweeeees#teeeeeerees 
CATENATING UNIQUE ELEMENTS Q TO V AND INCREMENTING 
COUNTERS C eeeeaneveveerteantkteaeseseeseae eee eee eee0e030es30x7eeetee @@ 


BY ASSIGNMENT AND INDEXING weve cesencernccccrcerersesesees 
BY RESHAPING ANOTHER VARIABLE W weacevencenccvvevcccczees 
GENERATING A VECTOR USING A LOGICAL VECTOR AND A SCALAR Q 


GENERATING A VECTOR OF INDICES ..veceuascvvccereccvacveens 


IN FIELDS OF WIDTHS W wseeweesccevcesreceesrecsrscseces 
GENERATING THE X TH AXIS INDICES I FOR ALL ELEMENTS 
OF ARRAY A, CORRESPONDING TO RAVEL-A (4A) sessesevees 


IN INCREASING-DECREASING SEQUENCE, WITH LENGTH L .....- 
IN INCREASING-DECREASING SEQUENCE, WITH LENGTH L, 
AND WITH MAXIMUM VALUE K eosoenveocae mee ee ee eevee ee Gee 6 & & 6 © 


GENERATING A VECTOR WITH A RANGE OF NUMBERS «useeseseeeces 


SUCCESSIVE INTEGERS FROM Jd TO K vas seadesecrecsvcees 
SUCCESSIVE REAL NUMBERS FROM J TO K INCREMENTING BY D 

R SUCCESSIVE REAL NUMBERS STARTING WITH W AND 
INCREMENTING BY D ceuveccvvsevevccvsvacsvvcrvesvscece 
GENERATING A LOGICAL (BOOLEAN) VECTOR w.evececreeerereees 
WITH K LEADING 1"S AND LENGTH L weve vecescrvccsveevece 
WITH K TRAILING 1*S AND LENGTH L wuecscceeveecseeveees 
DEFINING THE FIELD PARTITION P OF Vi wwveceeeeseeesecee 
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WHEN THERE ARE NO FIELD DELIMITERS ..vceeeeveesevcves 
WHEN THE FIELD DELIMITER ITS Q wcvvwneecevarescevvcees 
IN FIELDS OF WIDTHS W, ALTERNATING 1'S AND O°S w.ccuceees 
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EXPANDING / INSERTING ELEMENTS INTO A VECTOR V -.wceevveeeeecees 


° ° ° eo ° 


INSERTING K ELEMENTS Q BEFORE/AFTER EACH ELEMENT OF V .sseeee 


INSERTING K ELEMENTS Q BEFORE/AFTER THE ELEMENTS WITH 


INDICES I ener eee eee eaneeee eee eee eee eoseeresee ose eee eee see eee eee ee 


INSERTING ELEMENT Q IN WIDTHS W BEFORE/AFTER THE ELEMENTS 


WITH INDICES FT cccavvvcvvncsvcvavvevvesevesesesresseeseseresees 


EXPANDING FIELDS WITH DIFFERENT WIDTHS W TO FIELDS OF THE 


SAME WIDTH L eoeseeeeaeevees . . Sr err er 


INSERTING ELEMENT Q AFTER "EVERY K TH ELEMENT OF V .csaeeeves 
INSERTING A STRING S AFTER THE ELEMENT WITH INDEX Poel Aine 
EXPANDING V TO LENGTH L wees vasecsvnsensrvvecsssrsssseeveseces 
PADDING WITH THE PAD-ELEMENT (0 OR BLANK) ..vececeeveveves 
PADDING WITH THE LAST ELEMENT wasvunwccccesce essere eeces 


TESTING THE ELEMENTS IN A VECTOR V Sierestead ila G2 Cotet, Shaan Dares 


DETERMINING IF ELEMENT Q OCCURS IN V wwcsawcseveceveccssvesce 
DETERMINING IN WHICH FIELD OF V AN ELEMENT Q OCCURS «.+.+40.. 


COUNTING THE NUMBER OF OCCURRENCES N OF ELEMENTS Q IN V ...-~ 


PERFORMING RELATIONAL TESTS ALONG Vi waecseccsccceevsesesevece 
DETERMINING IF ALL THE ELEMENTS OF V ARE UNIQUE ...eueeeeeees 
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NNO OF Ww 


APL PROGRAMMING GUIDE 


VECTOR QPERATIONS -- fJABLE QF CONTENTS (CONTD) 
SELECTING ELEMENTS OF A VECTOR V wscaceesscccccccccvcvcccucecns 
SELECTING ELEMENTS THAT SATISFY A TEST wosscccccescccececees 


SELECTING ELEMENTS P WHICH ARE BETWEEN PAIRED DELIMITERS D 
SELECTING ELEMENTS P WHICH ARE OUTSIDE PAIRED DELIMITERS D 


SELECTING SUBSTRING S WITH STARTING INDEX I AND LENGTH L . 
SELECTING LEFT AND RIGHT FIELDS OF V DELIMITED BY 

DAR ELEMENT Ge ie teachcvilae doe aaa 410. Woes do: Was We ach RAE Ev aided ee ek 
WEEECTING BLEED MN “OF V2.8 wicilp en d6hbw wale ata, 6 #4 eae ak Bois BLE 


FINDING INDICES OF ELEMENTS OF A VECTOR V ..vccccccccccvcccens 


FINDING THE INDICES OF ELEMENTS THAT SATISFY A TEST ...... 
FINDING THE INDEX OF THE 1ST OCCURRENCE OF ELEMENTS @.... 
FINDING THE INDEX OF THE LAST OCCURRENCE OF ELEMENTS @ ... 


FINDING THE INDICES I OF THE SMALLEST AND LARGEST ELEMENTS 
FINDING THE STARTING INDICES I OF OCCURRENCES OF A PATTERN 


OL BLE MENTS «sivas bir d5 yaa le hm tates ante S Guar aee tea oR eae. 8 
FINDING ALL OCCURRENCES OF A SUBSTRING S .... 
FINDING ALL OCCURRENCES OF A WORD S ...eseeee 

FINDING THE BOUNDARY INDICES OF THE FIELDS OF VY 
WHEN THERE ARE NO FIELD DELIMITERS .......... 
WHEN THE FIELD DELIMITER IS @..... soccer ecene 


SHIRT ING A VECTORS <odaaan clea ab Arte waatass 
SHIFTING N POSITIONS WITHOUT CHANGING THE LENGTH 
WITH WRAP-AROUND (ROTATING) eeoeer eee eee e ves aeve 
WITHOUT WRAP-AROUND 2 2 

CHNGE RING Vi ei tinek etee leer ak tae ou & eave hed reds ew a cae 


WHEN THE FILL-ELEMENT IS Q sccancervacecevuass 
WITHIN A FIELD OF PAD-ELEMENTS OF WIDTH W... 
COMPRESSING THE FILL-ELEMENT Q TO THE SIDES. . 
BAGH TAP USE LE CIN GV Seale mca ees op ler Sk8 a Wee! dee Ra 66k Saks 
WHEN THE FILL-ELEMENT IS Q tee ree reer ee sesees 
WITHIN A FIELD QF PAD-ELEMENTS OF WIDTH W... 
COMPRESSING THE FILL-ELEMENT Q LEFT ......00. 
EERE SS Uso TY ENG Ve sabe ata hai aoe wala heey ao oa, 49 ble ele aS kg 
WHEN THE PICD-EEEMENT- TS > wd wave tise aw ne wasn 
WITHIN A FIELD OF PAD-ELEMENTS OF WIDTH W ... 
COMPRESSING THE FILL-ELEMENT Q RIGHT ........ 
REVERSING THE POSITIONS OF THE ELEMENTS OF V ... 
REVERSING THE ELEMENTS WITH INDICES I ....... 
REVERSING THE ELEMENTS WITHIN EACH FIELD OF V 


SORTING A nee a Meee ee eee eS ee ee eee ee ee 


SORTING A NUMERIC VECTOR Bint ae setae Maa teats 


DN ASCENDING “ORDER ste: coacuw wd ars ae we eR osees #aPe a 
DN DESCENDING “ORDER ace gives 6 ¥ -wletle Guaie 66044. 408% 


Vi 
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SORTING A VECTOR V’ (CONTD) 


IN EITHER ASCENDING OR DESCENDING ORDER .ucsececevceees 
SORTING THE ELEMENTS OF V WITHIN THE FIELDS OF V .wueees 
IN ASCENDING ORDER wvcce cece ccnveneesceerascccsene 
IN DESCENDING ORDER wa vuncern cece ree ren ee eracennsvces 
DETERMINING THE RANK-ORDER R OF THE ELEMENTS OF V ....-. 
ASCENDING RANK-ORDER wecuvvaeeesvccecceerenesvevenes 


DESCENDING RANK-ORDER wvsccccccncccas eee ewww cee ee ote ateice 


SORTING A. CHARACTER VECTOR wccvccccvecccecverccesceveseces 
MOVING CHARACTERS NWOT IN THE SORT SEQUENCE TO END OF V 
DELETING CHARACTERS NOT IN THE SORT SEQUENCE .uveveeees 

MERGING 2 NUMERIC VECTORS IN ASCENDING ORDER ..cssesseseee 

MERGING 2 VECTORS USING THE PATTERN IN LOGICAL VECTOR L .. 

MERGING 2 VECTORS OF SAME LENGTH IN ALTERNATING POSITIONS 


COMPUTING VALUES FROM A VECTOR Vi wecswcecccecevesrscesecseceee 


DETERMINING THE WIDTHS W OF THE FIELDS OF Vi .wsssseesseees 


WHEN THERE. ARE NO FIELD DELIMITERS wosde veces ccvvcscvcces 


WHEN THE FIELD DELIMITER TS Q wovvececcverecereccvvens 


SUMMING SETS OF ELEMENTS OF Vi wvwvcsncevecvccceccrscvcceccece 
SETS OF ELEMENTS SORTED INTO PIELDS ws cacanncnvanncnees ee 


_ SETS OF ELEMENTS NOT IN FIELDS ...--.4-. HOS diel Katee ew a ae. 
DETERMINING THE PAIRWISE DIFFERENCES D IN y RW eh Se: meres Mewar is 
COMPUTING THE AVERAGE OF THE VALUES IN Vi waccseccesvvceves 


PERFORMING ARITHMETIC SCAN OPERATIONS ON Vi wuveveeeececeves 
PERFORMING LOGICAL SCAN OPERATIONS ON V woevevecececeeces eee 


REPLACING ELEMENTS OF A VECTOR Vi wecvececcuveresececrvsscccces 


REPLACING ELEMENTS SELECTED BY A TEST cessesasasvccnsvvvee 


WITH ELEMENT Q .cccacccvece eeeoeeeeeeeeseeeeeeeeeeeeeeesee 


WITH THE PAD-ELEMENT (0 OR BLANK) sees peewee neces 
REPLACING MULTIPLE OCCURRENCES OF AN OLD SUBSTRING Os 
WITH A NEW SUBSTRING NS wccccesvvevvvvevescseervevesseceae 


DELETING ELEMENTS FROM A VECTOR Vi asusueevccecvcsease pee ccans 
DELETING ALL OCCURRENCES OF ELEMENT Q weeeevcsncecsevcsoes 


DELETING ALL LEADING OCCURRENCES OF ELEMENT q aie ete a ceoe 
DELETING ALL TRAILING OCCURRENCES OF ELEMENT ie eee ee 


DELETING LEADING AND TRAILING OCCURRENCES OF ELEMENT Q sesees 


DELETING REDUNDANT OCCURRENCES OF ELEMENT Q wueseecsccnces 
DELETING REDUNDANT OCCURRENCES OF ALL ELEMENTS ...sseeeeee 
DELETING LEADING, TRAILING, AND REDUNDANT OCCURRENCES 

OF ELEMENT Q wvvcccaccc case aren cerca enereereereeeseecnes 
DELETING THE ELEMENTS WITH INDICES TI wveeeceevevvcvscccees 


DELETING A SUBSTRING WITH STARTING INDEX I AND LENGTH DL oiaese 
DELETING DUPLICATE OCCURRENCES OF ALL ELEMENTS ......eeueee 


Vutl 


CREATING A VECTOR V 


LYPE 1: CATENATING INDIVIDUAL ELEMENTS 


eo INITIALIZE TO AN “EMPTY” VECTOR 


V+10 OR Vers OR V<+Op... 
a ADD ELEMENTS BY CATENATION 


V<V.45 78 23 


a USE THIS METHOD WHEN THE FINAL SIZE OF V IS UNKNOWN 


a CAUTION: CATENATION REQUIRES THAT OWA > THE STORAGE 
A TAKEN UP BY V . WHEN QWA BECOMES <, A WS FULL 
A WILL OCCUR. 


TYPE 2: CATENATING SEVERAL VECTORS 
© GENERATE SEPARATE “PARTIAL -VECTORS 

[T+'*FINAL SUMMARY REPORT OF ANNUAL SALES* 

D+«+'*DECEMBER 31, 19', 2 0 WY 

BR+'BRANCH OFFICE NO. ',¥N 
a CATENATE VECTORS TO FORM LONGER VECTOR 

HDR+T,* -- *,BR,t -- ',D 
S : 

USE THIS METHOD WHEN FINAL VECTOR WOULD BE TOO LONG 
FOR ONE FUNCTION STATEMENT. THIS ALSO ALLOWS THE 


THE INDIVIDUAL VECTORS TO BE USED IN MORE THAN ONE 
STATEMENT. 
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CREATING A VECTOR Vv 
BY CATENATIQN (CONTD) 


ZYPE 3: MANUALLY ENTERING A VECTOR WHERE THE DATA EXCEEDS 
THE TERMIWAL INPUT LINE LENGTH 


a CATENATE A “QO” AT THE END OF BACH LINE WHICH IS 
a TO BE CONTINUED 


Ve2e3 957 - 6.2, “Sib- See 4S 79, ‘o 


9307-20862: 225.38 a<5 4255e140.0 


oee ETC. 


§ CHARACTER INPUT MUST BE TYPED WITHIN QUOTES 


CREATING 4 VECTOR Y 


CATENATING UNIQUE ELEMENTS Q@ 20 ¥ 4ND INCREMENTING 
COUNTERS ¢ 


a CATENATE THE ELEMENTS ONLY IF THEY DON'T OCCUR IW V 
V+V,(Le~QeV) /Q kk 


a INCREMENT THE CORRESPONDING COUNTER IN C FOR EACH 


a ELEMENT 
C+(C,2/0)+VeQ kk 
A pV <> eC 


a C(I] IS THE COUNT OF OCCURRENCES OF VII] 
EXAMPLE: V+'MECRVKID' 

C+2 52414234 

Q«'BASED' 


RESULT: V: MECRVKIDBAS 
GC: 262422324744 


p IF ANY ELEMENTS IN Q OCCUR MORE THAN ONCE: 
V+V—~ (LerUeV) /U+( (192) =Q1Q)/Q 
C+(C,L2/0)++/V°.=Q 


EXAMPLE: Q+'MISSISSIPPI IS THE MAGNOLIA STATE* 


RESULT: V: MECRVKIDBASP THGNOL 
C: 4821414292144 724 3421191 


xx ADAPTED FROM (1) THE APL IRIOM LIST 


CREATING A VECTOR YV 
BY ASSIGNMENT AND INDEXING 
a FIRST ASSIGN “N” FILL-ELEMENTS TO THE VECTOR, E.G., 
® PAD-ELEMENTS (0 OR BLANK); WNW = A POSITIVE INTEGER 
V+Vp0 
a NOTE: Ne0 PRODUCES 1-BIT ELEMENTS. THESE WILL 


INCREASE TO INTEGER OR FLOATING POINT ELEMENTS 
A WHEN THE FIRST VALUE # 0 OR 1 IS ASSIGWED. 


D> 


® INITIALIZE INDEXING VARIABLE 
PTR<+0 COro<1)] 


© STORE ELEMENTS IN VECTOR BY INDEXING, CHECKING FOR 
& END OF VECTOR 


+(N<PTR+PTR+1) /END 
VE PPRI<US | 


A ALTERNATIVELY 


>+(N<"14I«PPR+1i.K)/END 
VLEI]<1 23 ... K COTro+«1] 
PTR+PTR+K 


© USE THIS METHOD IF THE FINAL SIZE OF VECTOR (OR AN 
© UPPER LIMIT ON THE SIZE) IS KNOWN 


a CAUTION: IF THE STORAGE TAKEN UP BY “V~ > OWA, WO 


OPERATION CAN BE PERFORMED WHICH WOULD DUPLICATE oye 
(WILL RESULT IN A “WS FULL’). 
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CREATING A VECTOR Y 
BY RESHAPING 4NOTHER VARIABLE VW 
V+NpW 
a W MAY BE AN ARRAY OF ANY RAWK (0, 1, 2, 3, «..) 


a N MUST BE AN INTEGER 2 0 


EXAMPLE: W+'(}t 
N<«10 


RESULT: oooood00000 


EXAMPLE: W-+"'ABCD* 


N<13 
RESULT: ABCDABCDABCDA 
EXAMPLE: W+2 3 4o 10010 
N<17 
RESULT: 41002012001401200d31041 ~0 


9 TO REPLICATE A VECTOR W N-TIMES: 
V+(NxpW)owWw 


a N MUST BE AN INTEGER 2 0 


EXAMPLE: = We'1234' 
N<«4 


RESULT: 1234123412341234 


CREATING A VECTOR Y 


GENERATING 4 VECTOR USING 4 LOGICAL VECTOR AWD A SCALAR Q 


V+ LOGICAL VECTOR )\Q 


a PAD-ELEMENTS (0 OR BLANK) OCCUPY THE 0-BIT POSITIONS 
EXAMPLE: UNDERLINING A HEADING (REPLACE Q WITH '7') 


HDR«'THIS IS A HEADING! 
V+(HDR#t t)\tut 


RESULT: = nn 


EXAMPLE: fet 1 00-2 200 24 0°00 1 4 0°80 
V+L\'o! 


RESULT: °©0 00 00 C0 


CREATING 4 VECTOR V 
GENERATING A VECTOR OF INDICES 
ZN ELELDS OF WIDTHS W 


V+(+/W)90 2 
VO+\(.020), 1¢WJ+1 
Vet\V 


EXAMPLE: W+2 24 1. 
RESULT: 4.4 Oo: Boe Se COro~1] 
a ALTERNATE IMPLEMENTATIONS: 


VeOlTOtt\(1t/W)eDLO++\W 


V<eOIO++/Crit/W)°.20T0++\W 


a [0 GENERATE A VECTOR OF THE ELEMENTS IN VECTOR © 


A CODE: XLV] 


EXAMPLE: X<tAceraVvt 
We3 1123 


RESULT: AAAce2>VVV 


CREATING 4 VECTOR Y& 


ae Se Se ee Se ae Sate ate Sle Some See ee 


GENERATING THE “X"TH AXIS INDICES I FOR ALL ELEMENTS 
L-A (,4) 


Sn Rane Sve Se Se See am Se Se Se See 


R+(~0I0)+X-ppad 
I+, (RoippA)Q(ROpA )pil(pA)L[X] 
a THIS CAN BE SIMPLIFIED FOR ARRAYS OF RANK 1 OR 2: 
a RANK 1 (= VECTOR): I+1pA 
a NOTE: THIS IS A “KERNEL” APL OPERATION 
a RANK 2 (= MATRIX): 
) ROW INDICES (X=1): Ie, 8(OpA )oiitpa 
fr) COL INDICES (X=2): I+,(pA)pr 1tpA 


a NOTE: POR RANK 2 3, THE EXPRESSION FOR THE LAST AXIS 
) (COLUMNS) IS THE SAME AS SHOWN ABOVE FOR RAWK 2. 


EXAMPLE:  A*2 3 2p112 
1 2 
3. 4 
5 6 
7 8 
9 10 
1112 


A 
> 
1234567 8 9 10 11 12 


RESULT: CORRESPONDING PLANE INDICES (X<«1): (COTO<1] 
taadaiaiia22222 2 


CORRESPONDING ROW INDICES (X<2): 
11223 3141412 2 3 3 


CORRESPONDING COLUMN INDICES (X<3): 
1214212142121 2 


(CONTD ON NEXT PAGE) 


CREATING 4 VECTOR VY 
GENERATING A VECTOR QF INDICES 


GENERATING THE “X°TfH AXIS INDICES I FOR ALL ELEMENTS 
OF ARRAY A. CORRESPONDING TQ RAVEL-A (.4) (CONTD) 


® ALTERNATE IMPLEMENTATION: 
I+OI0+((pA)T(1*/pA)-OIO)LX3] 


THIS IMPLEMENTATION GENERATES INDICES FOR ALL 
E AXES AT ONE TIME 


CREATING A VECTOR Y 
GEWERATING A VECTOR OF INDICES 
LN INCREASING-DECREASING SEQUENCE, WITH LENGTH L | 
¥Ve(i[H), OL A«L+2 


EXAMPLE: L«8 


RESULT: 42344321 (Or0<1) 


EXAMPLE: L+13 


RESULT: O12 38. 4 bo 6 5 S240 COr0<+0] 


a NOTE: IF H «+ A DIMENSION OF A MATRIX M, V CAN BE 
a USED TO EXPAND M SYMMETRICALLY, I.E., MUV;1 FOR 
a ROW SYMMETRY, ML3V] FOR COLUMN SYMMETRY 


IN INCREASING-DECREASING SEQUENCE, WITH LENGTH L, 
AND WITH MAXIMUM VALUE K 


V+KL(1T A) Or. La<L+2 
EXAMPLE: i+12 
K<3 


RESULT: 12°33 °3.3°3.3.°3 3°24 COrO<1) 
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CREATING 4 VECTOR Y 
SUCCESSIVE INTEGERS FROM Zz ZO K 


VeT+(xK-J)x(11+]X-7)-OT0 


RESULT: 765 43°24 0 ° t.°2 


SUCCESSIVE REAL NUMBERS FROM J ZO K INCREMENTING BY D 
Velt(DxxK-J)x(114+)/L(K-7)4+D)-OF0 


9 J AND K ARE ANY REAL NUMBERS; D REAL AND > 0 
EXAMPLE: J«1.4 

K+8.2 

D+.7 


RESULT: 1.4 2.1 2.8 3.5 4.2 4.9 5.6 6.3 7 7.7 


Fm Bre Son ee Se em, 


(CONTD ON NEXT PAGE) 
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CREATING 4 VECTOR VY 
GENERATING 4 VECTOR WITH 4 RANGE QF WUMBERS (CONTD) 


R SUCCESSIVE REAL NUMBERS STARTING WITH WH AND 
INUCREMEWTING BY 2 


V<N+Dx( 1h) -OI0 
a R IS ANY INTEGER = 0; N AND D ARE ANY REAL NUMBERS 
EXAMPLE: +10 
N<+0O 
D<-.t 


RESULT: 0 0.4 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 


a9 SPECIAL CASE IMPLEMENTATIONS, FOR INTEGER N 
A AND D = 1: 


V«(N-OT0)+18 
V+(N-OT0)+1.R+N-OI0 aK 
EXAMPLE: R+8 
N<13 


RESULT: 13 14 15 16 17 18 19 20 


xx ADAPTED FROM (3) USE AND MISUSE OF APL 
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CREATING A VECTOR V 


GENERATING A LOGICAL (BOOLEAN) VECTOR 


V+Lt+Ko1 
EXAMPLE: L«12 
. K<5 
RESULT: 11141141090000000 


A ALTERNATE IMPLEMENTATION: 


V+(K-~O10)21L 


WITH K TRAILING 1'3 AND LENGTH L 
V+(-L)+Kp1 
RESULT: o0o0o0g0 00 023143211 


A ALTERNATE IMPLEMENTATION: 


V<«(L-K+~OI0)<iL 
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CREATING A VECTOR LY 
GENERATING 4 LOGICAL (BOOLEAN) VECTOR 


DEFINING THE ELELD PARTITION 2 OF V 


> 


pP <> oV 
PLI] = 1 WHERE VLI] IS THE FIRST 
OF A FIELD; OTHERWISE PLI] = 0 


> D 


THIS VECTOR “P™ 


> 


NOTE: 


>» 


WHEN THERE ARE WQ ELELD DELIMITERS 


[TYPE 1: FOR K FIELDS WITH SAME 
FIRST P<(KxW)oWt1 
LAST: P+(KxW)p(-W)41 - 
a WOTE: THIS IS A “KERNEL” APL 
EXAMPLE Kes 
W<3 
RESULT FIRST: 1001004 
LASTS OG Oot 0-04 0 


A ALTERNATE IMPLEMENTATIONS: 


FIRST: P+(KxW)o1,(W-1)p0 
LAST: P+(KxW)p((W-1)p0),4 
NOZE: 


(CONTD OW NEXT PAGE) 
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(OR LAST) ELEMENT 


TS REQUIRED WHEN PERFORMING 
CERTAIN OTHER OPERATIONS ON FIELDS OF V 


WIDTH W 


OPERATION 


001400100 
01001001 


THIS FIELD PARTITION CAN BE USED WHEN 
PROCESSING A KxW MATRIX RAVELED AS A VECTOR 


CREATING 4 LECTOR V 
GENERAZING 4 LOGICAL (BOOLEAN) VECTOR 
DEFINING THE EIELD PARTITLON B OF Y¥ (CONTD) 
WHEN THERE ARE WQ EIELD DELIMITERS (CONTD) 


SSS Re ee oe ee 


TYPE 2: FROM A VECTOR I OF INDEX NUMBERS OF THE 
1ST ELEMENTS OF EACH FIELD 


FIRST: P#(CipV)elr 


LAST: P+io(ripVelr 


9 WOTE: THIS IS A “KERNEL APL OPERATION 
A 


EXAMPLE: V<110 
I+1 4 5 9 COoro+«1] 
RESULT: FIRST: 1001100010 
LAST: 0011000101 


a NOTRE: “P+(1pV)eI” IS ALSO VALID FOR A VECTOR V 
0 WITH FIELD DELIMITERS 


(CONTD ON NEXT PAGE) 
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CREATING A VECTOR 
GENERATING A LOGICAL (BOOLEAN) VECTOR 
DEFINING THE FIELD PARTITION P QF V (CONTD) 


WHEN THERE ARE NQ FIELD DELIMITERS (CONTD) 


LYPE 3: FROM A VECTOR OF FIELD-WIDTHS W, 
WHERE pV <> +/W 


 FIRS?: P<(i.t+/W)e+\OI0,W 


LAST: = Pe(1+/W)e(+\W)-~Or0 


EXAMPLE: W+3 14 2 
RESULT: FIRST: 1001100010 
LAST: 00110001041 


a ALTERNATE IMPLEMENTATIONS: 

FIRST: B+(GxpW)p(G+l/W)+4 
P+(,We.>(1G)-OI0)/B 

LAST:  B+(GxpW)p(-G<«[/W) 44 
P+(,We.>$(1G)-DI0)/B 


(CONTD ON NEXT PAGE) 
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CREATING A VECTOR V 


GENERATING A LOGICAL (BOOLEAN) VECTOR 


DEFINING THE FIELD PARTITION P OF ¥ (CONTD) 


WHEN THERE ARE NO FIELD DELIMITERS (CONTD) 


FIRST: P+1,(14+V)# 147 


LAST: P<((14V)4# 14+7),1 


a WOTE: THIS IS A “KERNEL” APL OPERATION 
a NOTE: MAY HAVE TO SORT V FIRST TO PRODUCE THE FIELDS 
EXAMPLE: V+'BBUDDDCCCA' 


RESULT: FIRST: 1 
0 


ot1o0o0u004 
LAST: 41000120011 


a ALTERNATE IMPLEMENTATIONS: 


FIRST: Pye is(1t0oV),V 


LAST:  P+V#14V,1+00V 


a THESE CAN BE SIMPLIFIED AS FOLLOWS: 


WUMERIC V CHARACTER V 
FIRST: P+«V2"1+0,V Peve"14t '4V 
LAST:  P+V#1+V,0 Peveity, ! 


(CONTD ON NEXT PAGE) 
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= = See 


ee Se 


DEFINING THE FIELD PARTITION P OF V¥ (CONTD) 


WHEN THERE ARE NO EIELD DELIMITERS (CONTD) 


TYPE 4: (CONTD) 


CAUTION: 1ST AND LAST ELEMENTS OF V MUST BE 


‘caine Se See ae an Se 


A : 
A DIFFERENT TO USE THE FOLLOWING IMPLEMENTATIONS 


FIRST: P«V2"1oV 


LAST;  P<V#1oV 


FIRST: P+S>~1+0,8+V#Q 


LAST: P<«S>1+(S<+V#Q),0 


@& NOTE: EMPTY FIELDS ARE ELIMINATED FROM THE PARTITION 


EXAMPLE: V+',ALPHA,PHI,,BETA' 


Q«t,? 


RESULT: FIRST: 0100000100001 000 
LAST: 000001420001000001 


A WOLTER: TO DELETE THE FIELD DELIMITERS FROM V AND P 


r) FOR OTHER PROCESSING, USE: 


V+S/V | OR V<(V#Q)/V 


P<«S/P OR P<«(V#Q)/P 


18 


CREATING 4 ZECTOR Y 


GENERATING 4 LOGICAL (BOOLEAN) VECTOR 


ZN ELELDS QF WIDTHS W. ALTERNATING 1'S AND O'S 


TYPE 1: K FIELDS WITH SAME WIDTH W 


V<(KxW)o(Wx2)tWol 
a NOTE: TO START WITH O'S, CODE: ~...(-Wx2)..." 
EXAMPLE: Ke+5 
W<3 
RESULT: ae a OOO. Sa OOO Aa 


TYPE 2: FROM A VECTOR OF FIELD-WIDTHS W, 


> > vd 


WHERE pV +> +/W 


Ve4z\(1+/W)et+\0T0,W 


VOTE: TO START WITH O'S, CODE: -~V 
XAMPLE: W+e5 231 4 
ESULT: 4a a Os OP a a a 


NOTE: THIS IS A “# SCAN” OPERATION PERFORMED ON A 
LOGICAL VECTOR DEFINING THE 1ST ELEMENTS OF THE 
FIELD PARTITION OF V (SEE PREVIOUS TECHNIQUE). 


ALTERNATE IMPLEMENTATION: 


B<«(GxpW)p(Gx2)t(G+[/W)p1 
V+(,We.>(1G)-OI0)/B 


NOTE: TO START WITH O'S, CODE: “...(-@x2)...7 
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EXPANDING / INSERTING ELEMENTS INTO & VECTOR Y 
INSERTING K ELEMENTS Q BEEORE/AFTER ZACH ELEMENT OF Y 
TYPE 1: INSERTING PAD-ELEMENTS (0 OR BLANK) 


AFTER: V+,V.,( (pV) .K)pQ [Q+0 OR Qe! t] 


BEFORE: V+,(((pV),X)pQ@).V 


EXAMPLE: INSERTING ZEROES 


Vour5 

K<2 
02003 00400500 
100200300400 5 


RESULT: AFTER: 1 0 
BEFORE: 0 0 


& ALTERNATE IMPLEMENTATIONS: 


AFTER: V+, (CC pV), K+1) 40 (oV),1)pV 


BEFORE: V«,((pV),-K+1)t+((pV),1) eV 


AFTER: Ve(((K+1)xoV)p(K+1)41)\V 


BEFORE: V+(((K+1)xpV)o(-K+1) 41) \V 


(CONTD ON NEXT PAGE) 
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INSERTING K ELEMENTS 2 BEEQRE/APTER EACH ELEMENT QF VY (CONTD) 


TYPE 2: INSERTING ANY OTHER ELEMENT Q 


AFTER: V<+.V,( (pV), K)pQ 
EXAMPLE: +15. 
K+2 
+10 
RESULT: AFTER: 110102104103 10104 10 10 5 10 10 
BEFORE: 10 10 11010210103 10104 10 10 5 
e ALTERNATE IMPLEMENTATIONS: 
AFTER:  V<(Be((K+1)xpV)p(K+t1)41)\V 
VI (~B)/19V1<Q 
BEFORE: V+(Be((K+1)xpV)o(-K+1) 41) \V 
VE (~B)/19V 1+ 


A ALTERNATE IMPLEMENTATION, FOR K = 1 


AFTER: V+,V,COTO+0.5] Q 


Oro<1: V«,V,£1.5] Q 
OLo+0: V+,V,C0.5] Q 


BEFORE: V+,Q@,(OIT0+0.5] V 
a NOTE: AXIS-NUMBER DECIMAL-PART IS A DECIMAL VALUE 
a BETWEEN 0 AWD 1; @.5 SHOWN HERE 


EXAMPLE: INSERTING ASTERISKS 


V+'ABCDEFG* 
Qetxt 
RESULT: AFTER: AxBeCxDeExFRG* 


BEFORE: *A*BeCxDxExF*G 
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EXPANDING / INSERTING ELEMENTS INTO A VECTOR Y 


ae in cn Sal Sy Oy See ee Sy Se Se SS ee 


INSERTING K ELEMENTS @ BEFORE/AFIER THE ELEMENTS WITH 


IYPE 1: INSERTING PAD-ELEMENTS (0 OR BLANK) 

AFTER:  N+KxpI+,I [Q+0 OR Q+' '] 
V+(V,NpQ)CAC ip), Npr] 

BEFORE: W+KxpI+,I 

e WOTHE: TO INSERT AFTER FIELDS OF WIDTHS “W', SET I++\W 


EXAMPLE: V+'NOWISTHETIME' 


I+3 5 8 [Or0<1)] 
K«<2 
Q« t t 
RESULT: AFTER: NOW IS THE TIME 


BEFORE: NO WI STH ETIME 
® ALTERNATE IMPLEMENTATIONS: 


AFTER: I<ILAI+,I] 
B+((KxN+opI)+pV)p1 
BL(,Q(K, NV) pl+~0I0)+1.K xv 1<0 
V+B\V 


BEFORE: REPLACE “~(IO” WITH “-QOIo™ 

AFTER: I<+ICLAI<+,7] 
J+(,QCK, NV) pl+~-OI0) +. XxN+pl 
Ve(~C Kx) +pVye7)\V 

BEFORE: REPLACE “~OIO" WITH “-QIro™ 


AFTER: C+((K+1)xpV)pLe(K+1) 41 
Ve((, (CrpVyeZ)o.vb)/C)\V 


ee 


BEFORE: REPLACE “L+(K+ti)... WITH “L+«(-K+t1)...7 
(CONTD ON NEXT PAGE) 
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EXPANDING / INSERTING ELEMENTS INZO A VECTOR V 


INSERTING K ELEMENTS Q BEFORE/ARTER THE ELEMENTS 
LNDICES I (CONTD) 


TYPE 1: (CONTD) 


a FOR K = 1, THESE SIMPLIFY TO: 


AFTER: V<(V,(p,T)pQ)CACripV),(e,7) eT] 


AFTER: I+ICAI+,I] 
B+((N+pI)+pV)o1 
BC (r+~0I0)+1.V1<+0 
V<B\V 


AFTER: I<ICAI+, I] 
Ve(m( itp V)e(Lt+eOI0) +1N+el)\V 


TYPE 2: INSERTING AWY OTHER ELEMENT Q 
AFTER: N<«KxpI+,I 
V+(V,MpQ)LA(10V) Mer] 
BEFORE: N+KxoI+,I 
V+((NpQ@),V)CACWpI),10V) 
EXAMPLE: Q«tx! 
K+2 
‘RESULT: AFTER: WNOWx*IS**THE**TIME 
BEFORE: NOx*xWI**STH**ETIME 


a ALTERNATE IMPLEMENTATION: 


AFTER: I+ICAI+,T] 
B+((KxN+ol)+pV)e41 
BL (,Q(K.M) pT+eOI0) +1. KxN +0 
V<B\V 
VE (~B)/1pVI<Q 


BEFORE: REPLACE “~(\Io0” wiITH “-OIO™ 
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ZNSHRTING ELEMENT @ IN WIDTHS W BEFORE/AETER THE ELEMENTS 
WITH INDICES L 


2YPE 1: INSERTING PAD-ELEMENTS (0 OR BLAWK) 


AFTER: I<ILS+hAI+, I] 
C+(GxpV)p(G<1tl /W+W0>S]) 44 
U+(CipV)eZI)\W 
V+((,U°.201G)-OT0)/C)\V 


BEFORE: REPLACE “(G+...” WITH “(-G+...” AND 
iG” WITH “oiG 


a EACH ELEMENT OF W CONTAINS THE NUMBER OF ELEMENTS TO 
A§ BE INSERTED BEFORE/AFTER THE ELEMENT. OF V WHOSE 
A INDEX IS THE CORRESPONDING ELEMENT OF I; pI «+ pW 


EXAMPLE: V+#76543241 


I<2 5 6 ~ COT0+1) 
Wei 3 2 
RESULT: AFTER: 7605430002004 


& ALTERNATE IMPLEMENTATIONS: 


AFTER: I*IlS+hI+, I] 
K<OTO0++/(1pV)°.>L 
J«(1pV)+(+\0,W+WLS1)CX) 
Ve(Cr0+/W) toVyeJ)\V KK 


BEFORE: REPLACE “o.> WITH “o,>" 


** ADAPTED FROM (1) THE APL IDIOM LIST 


(CONTD ON NEXT PAGE) 
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EXPANDING / INSERTING ELEMENTS INTO 4 VECTOR VY 


“WITH INDICES I (CONTD) 


BEFORE: 


INSERTING ANY OTHER ELEMENT Q 


I+IC S+4I+,I] 

Deyn eT or ar oes 
U<+(CrpV)yelT)\W 
V+(B+(,U°.201G)-OL0)/C)\V 
VUE CrB)/1pVI<Q 


REPLACE “(G+...” WITH “(-G+...” AWD 
1G” WITH “o.G" 


Qe 1 


76°9141543 4 41°12 714 711 
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_ EXPANDING / INSERTING ELEMENTS INTO A VECTOR Y 


EXPANDING FIELDS WITH DIEEERENT WIDTHS W TQ FIELDS OF THE 
SAME WIDTE L 


RIGHT-JUSTIFIED FIELDS 
V+(,We.>$(1L)-0I0)\V 
a INSERTS PAD-ELEMENTS (0 OR BLANK) 


a “L MUST BE = [/W 
EXAMPLE: V+'AABCDABABC' 
Wei 4 2 3 
Leh 
RESULT: AABCD AB ABC 
a ALTERNATE IMPLEMENTATIONS: 


V+(, (W-~O10)°.261L)\V 


V+(,(L-W)e.s(1L)-OI0)\V 


KK 


LEPT-JUSTIFIED FLELD 
V+(,We.>(iLl)-OI0)\V 
RESULT: A  ABCDAB ABC 
a ALTERNATE IMPLEMENTATIONS: 
Ve(,We.2(1L)+~0I0)\V 
V+(, (W-~OT0)°.21.L)\V 


a WOTE: THESE ARE “KERNEL APL OPERATIONS 
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EXPANDING / INSERTING ELEMENTS INTO A VECTOR YL 
INSERTING ELEMENT Q AFTER EVERY “K TH ELEMENT QF VY 


a Q IS A SCALAR; @Q MAY BE A VECTOR ONLY IF pQ ++ [(pV)#K 
EXAMPLE: v+t123178' 
K+2 
Qet/t 
RESULT: 12/31/78/ 


a NOTE: MAY ALSO CATENATE Q AT THE LEFT, BEFORE THE RAVEL. 


A LEADING Q MAY BE DELETED VIA: Vi, .. 
A THEN THE EXAMPLE CAN BE SIMPLIFIED TO: 


Veit,'/', 3 2 pV 
a MOTE: MAY NEED TO DELETE TRAILING OCCURRENCES OF Q AND/OR 
a EXTRANEOUS ELEMENTS OF V PRODUCED BY THE RESHAPE: | 


ye("14+R+pV) oC ((R#f (pV) 8K) .K)pV) 28 


RESULT: 12/31/78 
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EXPANDING / INSERTING ELEMENTS INTQ A VECTOR V 
ZNSERZING 4 SERING & AFTER ZHE ELEMENT WITH INDEX ZL 
OF0O*«1: V<+(I4+V),S,I+V 
OF0+«0: V<((L+1)tV),8,(T+1)4V 
a S MAY BE A SCALAR OR VECTOR 
EXAMPLE: V«'ABCDHIS* 
S<'EFG*t 
I<4 COL0+1 J 
RESULT: ABCDEFGHIT 
A ALTERNATE IMPLEMENTATION: 
V+(V,S)CAC1pV), (pS) pr] xk 


a TO INSERT S AFTER SEVERAL ELEMENTS: 


N<«(pS+,S5)xpI+,] 
Ve(V,WoS)CAC LV), , 80 (pS), pI) pr) 


EXAMPLE: V+'Be(B=0)+Bt15' 


en ey s+'L3]t 
I+3 8 0 COro+o0] 
RESULT: BC 31<(BC31]=0)+B8L 31415 


© WOTE: SEE ALSO THE TECHNIQUE “REPLACING MULTIPLE 
a OCCURRENCES ... 


** ADAPTED FROM (1) THE APL IDIOM LIsT 
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EXPANDING / INSERTING ELEMENTS INTO 4 VECTOR V 


In 


EXPANDING Y TQ LENGTH 


VeLtV 
EXAMPLE:  V+.7 
Lois 
RESULT: 4.23 BS 6-7) 0- 0.020 0-000 


@ ALTERNATE IMPLEMENTATION: 


V<LtV,LpQ@ LQ*+0 OR Qet t] 


PADDING WITH THE LAST ELEMENT 
V<LtV,Lp 14V 
RESULT: pe ae ee ty iy A yy Mey 


A ALTERNATE IMPLEMENTATION: 


VeVE (rL)L(p¥)--OT0] 
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a in Se ay em am Sm 


R<QeV 


A RESULT R IS 1 IF Q OCCURS IN V AWD 0 IF IT DOESN'T 


a IF Q 


IS A VECTOR, R IS A VECTOR OF THE SAME LENGTH 
EXAMPLE:  V«'WE THE PEOPLE 
Q«' LATE? 
1014 


A ALTERNATE IMPLEMENTATIONS, WHEN @ IS A SCALAR: 


R<v/V=Q OR R+VV.=Q 


R<0<+/V=Q OR R<O<Vt+.=Q: 


© ALTERNATE IMPLEMENTATIONS, WHEN Q IS EITHER VECTOR 
a OR SCALAR: 


R+(OIO+pV)>ViQ 


OLO+1: Re(i+pV)>ViQ 

OF0<+0: R<(pV)>Vr.Q 
R<V/Q°.=V 
R<((pV)--~OT0)2V1Q 


OLO+1: R<(pV)2V1Q 
Oro+0; R+((pV)-1)2V21Q 
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TESTING THE ELEMENTS IN A VECTOR VY 


DETERMINING JN WHICH EJELD OF V AN ELEMENT @ OCCURS 


D> 


FIND THE INDICES OF THE OCCURRENCES OF THE ELEMENT Q 
IN V3; RANGE-CHECK THESE INDICES AGAINST THE INDICES 
a QF THE FIELD BQUNDARIES 


» 


OC+#/(I<«(V=Q)/19V)°.2FB 


“FB” IS AN Nx2 MATRIX WHERE EACH ROW CONTAINS THE LOWER 
AND UPPER BOUNDARY INDICES OF A FIELD (SEE TECHNIQUE 

“FINDING THE BOUNDARY INDICES ....). THE INDICES USED 
FOR THESE BOUNDS ARE DEPENDENT ON THE RELATIONAL 
FUNCTION USED (> OR 2). 


> DOD DDD 


NOTE: “#/No.2R” IS A “KERNEL” APL OPERATION FOR 
a RANGE-CHECKING THE NUMBERS N AGAINST THE LOWER AND 
a UPPER RANGE LIMITS R 


> 


EXAMPLE:  Y+'55.55 59.55 59.59 50.50 50.59 90.09! 
FB+6 201 6 712 13 18 19 24 25 30 31 36 [Oro+1] 
Qxtgt 

RESULT: BOUNDS: 6 12 18 24 30 36 


14 #7413 19 25 31 


INDICES: 8 o 1 0 0 0 0 
14 o 0 4 0 0 0 
17 0 Oo 41 0 0 0 
29 0 0 0 0 1 .0 
34 o 0 0 0 0 4 
35 0 0 0 0 0 4 


THE RESULTANT BIT MATRIX “OC” HAS 1 ROW FOR EACH INDEX 
OCCURRENCE OF @, AND 1 COLUMN FOR EACH FIELD DEFINED 
IN “FB”, I.E., pOC ++ (pI),1tpFB. A 0 OR 1 INDICATES 
THE ABSENCE OR PRESEWCE OF THAT OCCURRENCE OF Q IN THE 
FIELD 


DBD DDD 


a EACH COLUMN OF .-0C™ CAN BE USED TO SELECT THE INDICES 
a THAT OCCUR IN FIELD “K’, I.E.: OCEsKISE 


(CONTD ON NEXT PAGE) 


31 


TESTING THE ELEMENTS IW A VECTOR ¥ 
‘DETERMINING IN WHICH ELELD OF ¥ AW ELEMENT @ QCCURS (coNTD) 


a THE FIRST OCCURRENCE OF Q IN FIELD “K” CAN BE DETERMINED 
USING: T+<0C 
a AND THEN: TL 3KI/I 


B:) 


a vV#OC INDICATES WHICH FIELDS CONTAIN Q 


A THE COLUMNS CAN BE SUMMED TQ COUNT THE NUMBER OF 
A OCCURRENCES OF Q IN THE FIELDS, I.E£.: +#0C 


2 


TO TEST FOR ANY OF SEVERAL DIFFERENT ELEMENTS “DQ”, 


Py 


® REPLACE “V=Q” WITH “VeDQ” OR “v/Ve.=DQ” 


»> 


THEN v/0C INDICATES WHICH ELEMENTS OF “DQ” OCCUR IN 
SOME FIELD 


> 
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TESTING THE ELEMENTS IN A VECTOR YV 


COUNTING THE NUMBER OF OCCURRENCES W 


N++/Q°.=V 


a “WN CONTAINS THE COUNTS FOR EACH RESPECTIVE ELEMENT IW Q 


a IF Q IS A SINGLE ELEMENT, THIS SIMPLIFIES TO: 


N++/Q=V OR N+Q+.=V 

EXAMPLE : V+"ALPHA, BETA,GAMMA,DELTA,EPSILON'* 
Q<',AFIT* 
RESULT: 4601 2 
a TO COUNT THE GRAND TOTAL OF ALL OCCURRENCES OF ELEMENTS Q 
a IN J: 
N<+/VeQ 

RESULT: 413 
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TESTING THE ELEMENTS IN A VECTOR Y 
PERFORMING RELATIONAL TESTS ALONG Y 
R<("14V) o@ 1497 
a THIS REPRESENTS: (VCAlaVL21),(VL2]aVE3]),..., 


) VU -1+pVlaVipVvl COro+1] 


a “a IS OWE OF THE RELATIONAL FUNCTIONS < < = # 
a FOR NUMBERS AND = # FOR CHARACTERS 


IV 
Vv 


a TO TEST IF THE RELATION HOLDS ALONG V, SUBSTITUTE 
ReA/..s OR wu w Ase see 


D> 


A pR +> (pV)-1 


> 


REDUCTION (a/V) DOES NOf PRODUCE THIS RESULT, SINCE ITS 
A INTERMEDIATE RIGHT-COMPARANDS BECOME BOOLEAN AFTER THE 
A RIGHTMOST COMPARISON 


« 


EXAMPLE: TESTING FOR “<” ALONG V 
Vel 2465 913 17 


RESULT: 14101411 
A ALTERNATE IMPLEMENTATIONS [pR +> pV]: 
a FOR s<: R«( AV) =19V ** 


A FOR ALL =: R<eaA/V=1pV OR R+VA.=10V ** 


*x* ADAPTED FROM (1) [THE APL IDIOM LIST 
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ZESTING THE ELEMENTS IW 


ps 


VECTOR V 
DETERMINING LE ALL THE QLEMENTS OF V Ake UNIQUE 


Rea/(ipV)=ViV aK 


EXAMPLE: Vetconustlaf LVAcDxO1stypewa?<s=2>2Vvat 
RESULT: 0 


ea ALTERNATE IMPLEMENTATION: 
Re~Oe( 1p V)=ViV 


xx ADAPTED FROM (1) THE APL IDIOM List 
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SELECTING ELEMENTS OF 4 VECTOR Y 
SELECTING ELEMENTS THAT SATISEY A TEST 
R+( PEST )/V 


a THE “TEST” MUST PRODUCE A BOOLEAN RESULT (E.G., USING 

a A LOGICAL OR RELATIONAL EXPRESSION) WHICH IS A SCALAR 

® OR A VECTOR WITH THE SAME LENGTH AS V 

a IF NO ELEMENTS ARE SELECTED, THE RESULT IS AN EMPTY VECTOR 
EXAMPLE: SELECTING ELEMENTS > 5 


R<«(V>5)/V+2 5 8 13 19 


RESULT: 8 13 19 


EXAMPLE: SELECTING ELEMENTS # BLANKS 


R<(V#t ©)/Vet THIS IS A CHAR. LINE* 


RESULT: THISISACHAR. LINE 


EXAMPLE: SELECTING / DELETING A SUBSTRING 


R<texDATE', (( TEST )/'-RANGE'),'* ERROR* 
TEST<O 


RESULT: *kDATH ERROR 


cn a in en Se oe 


a NOTE: THE CODE FOR OTHER “TESTS” MAY BE EXTRACTED FROM 
a HE APPROPRIATE TECHNIQUES IN THIS GUIDE. FOR. 

@ EXAMPLE, THE TEST FOR “ALL LEADING OCCURRENCES MAY BE 
A 


FOUND IN THE TECHNIQUE FOR. DELETING SUCH OCCURRENCES. 


A ADDITIONAL TESTS ARE SHOWN ON THE FOLLOWING PAGES. 
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SELECTING ELEMENTS OF A VECTOR Y 
SELECTING ELEMENTS P WHICH ARE BETWEEN PAIRED DELIMITERS 2 
TYPE 1: ONLY 4 TYPE OF DELIMITER ELEMENT 
P+(B2i+4\1,B<D=V)/V 
0 THE RESULT WILL INCLUDE THE DELIMITERS AND THE ELEMENTS 
a BETWEEN THEM 
a CAUTION: NO “NESTING OF PAIRED DELIMITERS IS ALLOWED 


EXAMPLE: BETWEEN PAIRED QUOTATION MARKS (") 


V+t?HE “BEST ANSWER IS “LIMIT .' 


* 


Det s 


RESULT: “BES?” EIMIT™ 

a ALTERNATE IMPLEMENTATION: 
P+(Cs14=\0,C*D2V)/V 

a TO SELECT WITHOUT THE DELIMITERS: 
PE CENA ENT SDs VEY 
P<(Cai+=\0,C+D4V)/V 

RESULT: BESTLIMIT 

a NOTE: THE TEST FOR BALANCED DELIMITERS Is: 


0=2|+/B OR O=2)+/D=V 


(CONTD ON NEXT PAGE) 
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SELECTING ELEMENTS P WHICH ARE BETWEEN PAIRED DELIMITERS D 


ey Se ee Ss See ee Se ey 


LYRE 2: LEFT AND RIGHT DELIMITER FLEMENTS 
P+(Ls+\(V=1tD)-"140,V=14D)/V 


a “D° CONTAINS THE DELIMITERS IN THE ORDER OF PAIRING, 
) ZE.G., D«'C Jt 

© THE RESULT WILL INCLUDE THE DELIMITERS AND THE ELEMENTS 
© BETWEEN THEM 

A 

A 


“L” IS THE LEVEL OF NESTING OF THE PAIRED DELIMITERS 
TO BE SELECTED 


EXAMPLE: BETWEEN PARENTHESES 


Ve'((1pR)=RiR)/R+(5|NV) «2? 
D<et()t 
Lei 
RESULT: ((1pR)=RiR)(5|N) 
A ALTERNATE IMPLEMENTATION: 
P+(Ls+\1+-# 0 “1 $0,D°.=V)/V 
a TO SELECT WITHOUT THE DELIMITERS FOR LEVEL “ZL”: 
P+(Lst\("140, V=14D)-V=14D)/V 
P+(Lst+\1¥-74 “1 0 00,D°.=V)/V 
RESULT: (1pR)=Rik5 |W 


a NOTE: TESTS FOR BALANCED DELIMITERS ARE: 


A/OSt\(V=14D)-V=149D OR A/Os+\-74De°.=V 
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SELECTING ELEMENTS OF A VECTOR L 
SELECTING ELEMENTS PB WHICH ARE QUISIDE PAIRED DELIMITERS D 
TYPE 1: ONLY 1 TYPE OF DELIMITER ELEMENT 
P+(BVit4\1,B+D=V)/V 
a THE RESULT WILL INCLUDE THE DELIMITERS AND THE ELEMENTS 
a OUTSIDE THEM 
a CAUTION: WO “NESTING” OF PAIRED DELIMITERS IS ALLOWED 


EXAMPLE: OUTSIDE PAIRED QUOTATION MARKS (7) 


V«'THE “BEST” ANSWER IS “LIMIT’.' 


Det 


ee «8 


RESULT: THE ~~ ANSWER IS ~ 

a ALTERNATE IMPLEMENTATION: 
P+(Criv=\0,C0<D2V)/V 

a TO SELECT WITHOUT THE DELIMITERS: 
P+(B<14#\1,B+D=V)/V 
P+(C>1¥=\0,0«D#V)/V 

RESULT: THE ANSWER IS . 


(CONTD ON NEXT PAGE) 
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SELECTI 


ELEMENTS OF A VECTOR Y 


aera ALEMENTS £ WHICH ARE ourszp EZ PAIRED DELIMITERS D 


(CON 
LYPE 2: LEFT AND RIGHT DELIMITER ELEMENTS 
P+(L>+\(140,V=14D)-V=149D)/V 


a “D” CONTAINS THE DELIMITERS IN THE ORDER OF PAIRING, 

A E.G., Det[]t 

a THE RESULT WILL INCLUDE THE DELIMITERS AND THE ELEMENTS 
a QUTSIDE THEM 

A 

A 


“L IS THE LEVEL OF NESTING OF THE PAIRED DELETE: 
TO BE SELECTED 
EXAMPLE: OUTSIDE PARENTHESES 
V<'((C1.pR)=Rik)/R+(5|N) x2" 
D+-t()t 
L+i 


RESULT: ()/R+()*2 

A ALTERNATE IMPLEMENTATION: 
P<(L>+\1¥-4 “1 0 60,D°.=V)/V 

a TO SELECT WITHOUT THE DELIMITERS FOR LEVEL “L": 
P<(L>+\(V=1tD)-~140,V=14D)/V 


P<(L>+\14+-# 0 “1 60,D°.=V)/V 


RESULT: /Ro*2 


en ams nn cata a ame 
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SELECTING ELEMENTS QF A VECTOR VY 


SELECTING SUBSTRING & WITH STARTING INDEX I AND ZENGTE L 


S«L+(I-OL0)sV 


EXAMPLE: V+tTHESE ARE THE TIMES' 
I<6 COre+1] 
L+8 
RESULT: ARE THE 
a ALTERNATE IMPLEMENTATION: 
S+VOC(I-OT0) +12) 


a9 TO SELECT MULTIPLE SUBSTRINGS WITH SAME LENGTH: 


SVL, (T-O70)°.+12] 


EXAMPLE: I+8 1 17 Coro+<1] 
L<3 
RESULT: RE THEMES — 
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SELECTING ELEMENTS QF A VECTOR Y 


SELECTING LEFT AND RIGHT ELELDS OF VY DELIMITED BY 
GE ELEMENT @ 


Re (Ate L<((V1Q)-O20) 4) 47 
EXAMPLE:  V+'PARM1,ARG2* 
gett 


RESULT: L: PARM1 
R: ARG2 
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SELECTING ELEMENTS OF A VECTOR V 


SELECTING ELIELR NW QE V 


PYRE 1: USING A FIELD PARTITION VECTOR P 


MUST FIRST GENERATE A LOGICAL VECTOR P DEFINING THE 
FIELD PARTITION OF V, WITH A 1-BIT FOR THE 1ST 
ELEMENT OF EACH FIELD OF V AND O'S OTHERWISE 
(SEE SECTION “GENERATING A LOGICAL VECTOR’). 

ALSO pP <> pV 


> PDdDDD 


» 


CAUTION: ANY FIELD DELIMITERS MUST BE DELETED FROM V 
Fe(N=+\P)/V 


a “N° IS THE NUMBER OF THE FIELD 


a WOTE: “+\P” IS A “KERNEL” APL OPERATION 


EXAMPLE: ¥o'411411122233444556666667' 
Pei ODO O0OTZ0O0ZOAOAAOAOAAIADHODO A 
N<6 

RESULT: 666666 


a ALTERNATE IMPLEMENTATIONS, WHEN N IS A VECTOR: 
F<((+\P)eN)/V 
Fe(v4N0.=+\P)/V 


EXAMPLE: N<+2 5 7 


RESULT: 222557 


(CONTD ON NEXT PAGE) 
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SELECTING ELEMENTS OF 4 VECTOR V 


SELECTING FIELD N QF ¥ (CONTD) 


LXPE 2: 


USING THE INDEX OF THE FIRST ELEMENT AND THE 
FIELD WIDTH 


A&A PERFORM THE FOLLOWING 3 TECHNIQUES: 


A Bile 
A ee 
A 

A 3. 
a “WN IS 


COMPUTE WIDTHS W OF THE FIELDS OF V 

FIND THE STARTING (BOUNDARY) INDICES I OF EACH 
FIELD 

USE THESE TO SELECT THE SUBSTRING “FIELD N” VIA: 


F<ewWON I] +(I0W1-OL0)+V 


THE INDEX-NUMBER OF THE FIELD 


Hy 


EINDING INDICES OF ELEMENTS OF A VECTOR V 
FINDING THE INRICES QF ELEMENTS [HAZ SA42LSsry A TEST 
I+( TEST )/r19V 


a WOTE: THIS IS A “KERNEL” APL OPERATION 
EXAMPLE: FINDING THE INDICES OF THE DELIMITER “n™ 


V+' nALPHANBETANGAMMANPINZETA* 
I+(V=tnt)/r10V 


RESULT: 14741218 24 COro+1] 


a NOTE: TO OBTAIN THE INDICES FOR A SPECIFIC 
A INDEX ORIGIN, ADD: 


Ofo0+«1: I+«(~OI0)+( TEST )/ipV 


Oro«0: I+«(-O70)+( TEST )/ipV 


WS 


FINDING [INDICES OF ELEMENTS QF A VECTOR V 
FINDING THE INDEX OF THE 182 OCCURRENCE OF ELEMENTS Q 
I<+V1.Q 
EXAMPLE:  V+'EDCBAJIHGFEIDIZG! 
: Q+'GADH' 
RESULT: 9528 COro+1] 
a ALTERNATE IMPLEMENTATION: 


I*OTO++/A\Qo.4V 


A ALTERNATE IMPLEMENTATIONS, WHEN Q IS A SCALAR OR 
§ 1-ELEMENT VECTOR: 


I<it(V=Q)/10V 


I«(<\V=Q)/19V 
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FINDING INDICES QF ELEMENTS QF A VECTOR XY 
FINDING THE INDEX OF THE LAST QCCURRENCE OF ELEMENTS @ 
I<("1 102xOITO]+pV)-( 67) 1Q 
OF0«1: I«(itpV)-(6V)1Q 
OL0+«0: I+«( 1+pV)-(O7)1Q 
EXAMPLE:  V«tEDCBAJIHGFEJDIZG' 
Q+'GADHX' 
RESULT: 16 513 8 0 COro+1] 
a ALTERNATE IMPLEMENTATIONS: 
I+(((2xO0I0)-1)+pV)-(C 67) 1Q 
I+((~1*-0T0)+pV)-( OV) 1Q 


I+(+/Vv\Qe.=$6V)-~OI0 


A ALTERNATE IMPLEMENTATION, WHEN Q IS A SCALAR OR 
© 1-ELEMENT VECTOR: 


I< "1t(V=@)/10V 
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FINDING INDICES QF ELEMENTS OF A VECTOR Y 
FINDING THE INDICES I QF THE SMALLEST AND LARGEST ELEMENTS 
A THE SMALLEST ELEMENT: 


I<Vil/V kk 


a WOTE: FINDS INDEX OF THE 1ST OCCURRENCE 
EXAMPLE:  V+14 76 46 54 22 5 68 68 94 39 
RESULT: 6 Coro+1] 

9 ALTERNATE IMPLEMENTATIONS: 


I<1thv OR I< 1tyv 


a NOTE: ~... 14...” FINDS THE LAST OCCURRENCE 


® THE LARGEST ELEMENT: 
I<Vil /V ** 
RESULT: 9 CoOro+1] 


A§ ALTERNATE IMPLEMENTATIONS: 


I+1ityv OR I+ 1tahv 
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=— SSS SO =a ee 


ee See Saree ee Soe Se ‘Same Se Tae Sere Com Fay ee Sy Se a ne Sie eee Sa Seen ee ae ew eS Sen a Se Se Se ee 


=e Se ae Se 


FINDING ALL QCCURRENCES QF A SUBSTRING § 
a FIND INDICES OF ALL OCCURRENCES OF 1ST BLEMENT OF 
po SUBSTRING, EXCEPT ANY THAT ARE TOO CLOSE TO END OF V 
I< (L4V2145)/109V)+L<1-psS<,8 


a EXTRACT THE SUBSTRINGS AND KEEP ONLY THE INDICES OF 
a THE IDENTICAL ONES 


Ie(VE(F-OI0)°.+1951A.=8)/f 


MOTE: IF “pI” WILL BE GREATER THAN “oS”, CODE 
».-VCTo.+€198)-OI0)].. . 


EXAMPLE:  V+'STORE THE FIRST INSTANCE OF “ST” LAST? 
setsrt 


RESULT: © 114 19 30 36 COro<1] 


RESULT IS THE EMPTY VECTOR WHEN THE SUBSTRING IS NOT 
FOUND 


> D 


a ALTERNATE IMPLEMENTATIONS: 
I+((-L)4¥SA.=(L,1+9V)pV)/10 pV) +1-L+pS+,8 ae 
I<«(a#((19S)-O70)0(S+,5)°.=V)/1pV 


a NOTE: THIS LAST IMPLEMENTATION FINDS OCCURRENCES 
A WRAPPED AROUND THE ENDS OF V. f0 AVOID THIS: 


T#(1¢ad((1pS)-0L0)00, (S*,5)°.=V)/10 


ye em ey ee oe 


xx ADAPTED FROM (3) USE AND MISUSE OF APL 
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Se ay ee en Sao Fae ey 


FINDING INDICES OF ELEMENTS OF A VECTOR VY 


FINDING ZHE STARTING INDICES I QF OCCURRENCES QF A PATTERN 
OF ELEMENTS 


ae ean Fen pay sy aoe en Sm ae 


FINDING ALL OCCURRENCES OF A WORD 8 


a UOTE: IGNORES ANY OCCURRENCE OF THE WORD THAT IS 
EMBEDDED WITHIN ANOTHER WORD 


@ FIND INDICES OF ALL OCCURRENCES OF 1ST ELEMENT OF 
&® WORD, EXCEPT ANY THAT ARE TOO CLOSE TO END OF V 
I«(L¥V=1t5)/1( pV) +L<1-pS+,8 


A EXTRACT THE SUBSTRINGS AND KEEP Cues: THE INDICES 
A§ OF THE IDENTICAL ONES 


I«(VE (I-O20)0e.+1p$]A.=8)/I 


A COMPUTE THE INDICES OF THE ELEMENTS IMMEDIATELY 
® BEFORE AND AFTER EACH SUBSTRING, AND RANGE-CHECK 


L<+,#/(J+Io.+ 1,95)°.>(0,9V)-~QI0 
a KEEP ONLY THE STARTING INDICES OF THE SUBSTRINGS 


A WHOSE ADJACENT ELEMENTS ARE WNON-WORD ELEMENTS OR 
AT THE VECTOR ENDS 


D> 


D> 


MOTE: “ALF” IS A VECTOR OF VALID BEET ENTS FOR 
A WORDS OR LABELS 


I+(ov/(pJ)pL\ViL/,JIJeALF)/I 
EXAMPLE: V<«'STORE THE FIRST INSTANCE OF “ST” LAST* 
oe ort 
ALF«'ABCDEFGHIJKLMNOPQRSTUVWXYZA0123456789% 
ALF«ALF, 'ABCDEFGHISKLMNOPQRSTUVWXYZ0' 
RESULT: 30 COro+1) 


Pare pom iy on Sis ere 
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im Fe Fay em Sn 


FINDING THE BOUNDARY INDICES QF THE ELELDS OF V 


ZYPE 1: FROM A VECTOR OF FIELD-WIDTHS W, WHERE pV «> +/W 


FIRST ELEMENTS: LB++\'1+0I0.W 


LAST ELEMENTS: UB<(+\W)-~QI0 


‘EXAMPLE: W+5 23141 4 


RESULT: LB: 16 8 411 12 COro+1] 
URS oS 7 20.4% 15 


LB; 5 7 10 411 COIO<0 ] 
UB: 469 10 14 


oO 


oe ae 


a WOTE: FOR “K” FIELDS WITH SAME WIDTH “L’, SET “W+KpL™ 


D> 


NOTE: TO OBTAIN THE INDICES FOR A SPECIFIC 
a INDEX ORIGIN, ADD: 


Or0+<1: LZB<(~OI0)+... 


O7FO<+0: LB+(-OFO)+... 


FN [LIKEWISE FOR “UB™]. 
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ne Say See Sty Saee ee my Se um won Se ee ee eS Se a See See See oe 
hm oe nee See Se ee ee eee ae Se aioe Si Sem Sys roe ame See en ——e ae eee oe 


TYPE 2: WHEN V CONTAINS FIELDS OF IDENTICAL ELEMENTS 


FIRST ELEMENTS: LB+(1i,(14V)# 14V)/i1pV 


LAST ELEMENTS:  UB+(((14V)#714V),1)/19V 


NOTE: IF “1pV" IS REPLACED BY “V", THE BOUNDARY 


A 
a ELEMENTS (FIRST OR LAST) OF EACH FIELD WILL BE 
A 


SELECTED 
EXAMPLE: V<+'AABBBBCDDDEEEE! 
RESULT: LB: 1378141 COro+1] 
UB: 26710 14 
a WOTE: TO OBTAIN THE INDICES FOR A SPECIFIC 
a INDEX ORIGIN, ADD: 


DfO*«1: LB+(~OT0)+... 


OTO<+0: ZLB+(-OI0)+... 
A ALTERNATE IMPLEMENTATIONS: 


FIRST: LB+«(V# 1¥(1+0pV),V)/10V 


LAST: UB+(V#is+V,1400V)/r19V 


a THESE CAN BE SIMPLIFIED AS FOLLOWS: 


NUMERIC V CHARACTER V 
FIRST: LB«(V# 14+0,V)/1pV LB<+(V2 1+" ',V)/ipV 
LAST:  UB«(V#14V,0)/19V UB+(V#idV,' ')/rpV 


(CONTD ON NEXT PAGE) 
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FINDING INDICHS QF ELEMENTS QF A VECTOR Y 


FINDING THE BOUNDARY INDICES QF THE FIELDS QF VY (CcoNTD) 


—— OS SS ee - 


———- ee ——S ee ee 


[TYPE 2: WHEN V CONTAINS FIELDS OF IDENTICAL ELEMENTS 
(CONTD) 


Sn am Tae an Se 


FIRST: LB+(V# 16V)/ipV 


LAST: UB+(V2410V)/10V 


——— 


FIRST ELEMENTS: LB+«(1,V=Q)/11+pV 

LAST ELEMENTS: UB+ 1+((V=Q),1)/r11+pV 

a ASSUMES THAT V CONTAINS NO LEADING OR TRAILING 
© DELIMITERS Q, UNLESS IT HAS EMPTY FIELDS. 

a TO PRODUCE AN Nx2 MATRIX “FB” WHERE EACH ROW 


CONTAINS THE BOUNDARY INDICES OF A FIELD, 
ENTER: FB+LB,COIO+0.5)1UB 


D> D 


EXAMPLE: V+'55.55 59.55 59.59 50.50 50.59 90.09! 


Qet t 
RESULT: LB: 1.713 19 25 31 LOro<1]. 


UB: § 41 47 23 29 35 
aA ALTERNATE IMPLEMENTATIONS: 


FIRST: LB<«(U=Q)/1pU+Q,V 


LAST: UB+ 1+(U=Q)/1pU+V.Q 
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ae Se ee Sa am Se eee Oe ae Sam cn Tae See 


RIGHT: V+(-V)OV 


LEFT: V<NOV 


EXAMPLE: V<110 
N+3 


‘sme Se Soon ee Se Saiee 


© NOTE: USING ONLY V-+NovV 
a LEFT «+ N>O0 AND RIGHT ++ W<0 
WITHOUT WRAP-ARQUND 
© PAD-ELEMENT WILL BE 0 FOR NUMBERS, BLANKS FOR CHARS 


RIGHT: V<(-pV)t(-V)4¥7 


LEFT: Ve(oV)tNyV 


EXAMPLE: V«rio 
V<4 


— om ee 
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SHIFTING 4 VECTOR L 
caureazue y 
WHEN THE EILL-ELEMENT [es @ 
Poem Giana 
EXAUPLE: <Ve'=sAB-C+--De-B 2-2" 


Q«t-t 


RESULT: — ---AB-C---D--E---- 
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sane a an pa Fn 


Wt(-LCW+pV)#2)4V 


a OMIT THE “Wt IF DO NOT WEED RESULT IN FULL WIDTH W 


EXAMPLE: V«'TABLE OF CONTENTS' 
W<30 


RESULT: | TABLE OF CONTENTS | 
© ALTERNATE IMPLEMENTATIONS: 
W+(([O.5xW-pV)-W)4V 


W+((LO.5xW-pV)pQ)3V [Q+0 OR Q<«t '] 
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SHIFTING A VECTOR ¥ 
CENTERING Y 


V+(T0.5*x+/~B)OVLAB+V24Q] 


EXAMPLE: VetoofocooBCoDooPFoo000G? 
Q+tot 


RESULT: e000 0 0OABCDEFGO 000000 
A ALTERNATE IMPLEMENTATION: 


V<(TO.5x+/~B)O( -pV)4( (pV) pQ), (B+V#Q)/V 
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V+(OL0-(Q467 )11) OV 


OF0+1: V+(1-(Q#OV)11)07 
DfO<0: V<(-C@4#OV)11)6V 


a THE COMPLEMENT IS: V<(OLO-(Q=0V)10)0V 


EXAMPLE: Vet uaxxAxBBeeCCCuxxx«! 
Qetxt 
RESULT RAKKEKKKKKAKBBRKCCC 


a ALTERNATE IMPLEMENTATIONS: 
V+((714(V#Q)/19V)+~0I0 OV 
V<«(1-(V=Q)11)06V Kk 
V+C-+/A\Q=OV) OV 


a NOZE: IF “Q IS A VECTOR OF DIFFERENT FILL-ELEMENTS, 
A REPLACE “V#Q” WITH “~VeQ” AND “Q#oV" WITH ~~(6V)eQ 


**x ADAPTED FROM (1) THE APL IDIOM LIST 


(CONTD ON NEXT PAGE) 
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SHIFTING A VECTOR V 
RIGHT-JUSTIFYING VY 


a SPECIAL CASE IMPLEMENTATION: 
A WHEN V IS LEFT-JUSTIFIED AND THERE ARE NO 
A EMBEDDED FILL-ELEMENTS Q 
V+(+/V#Q)OV OR V<(V+.4Q)0V 
EXAMPLE: V+"ALASKA kk xR KKK! 
Q<txt 
RESULT: KeKKKKKALASKA 


a ALTERNATE IMPLEMENTATION: 


V+((V¥1Q@)-OLT0) OV 
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SHIFTING A VECTOR V 
RIGHT-JUSTLTFYING V 
WITHIN A ELELD OF PAD-ELEMENTS OF WIDTH W 
(-W)4V 
ea NOTE: IF W< oV, V WILL BE TRUNCATED ON THE LEFT 
EXAMPLE: Veu7 
W+12 


RESULT: 0000014234 56 7 


© WOTE: THE FORMAT FUNCTION “¥° CAN ALSO BE USED TO 
RIGHT-JUSTIFY THE CHARACTER RESULT WHEN FORMATTING 
NUMBERS 


> »D 


A ALTERNATE IMPLEMENTATION: 


(-W)4*(WpQ),V LQ<+0 OR Q+t t] 
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SHIFTING A VECTOR V 
RIGHT -JUSTIFYING V 


COMPRESSING THR FILL-ELEMEWT @ LEFT 


V<VLAV4Q] 
EXAMPLE: Vet ex kAxBBaxCCCunnnxt 
Qatxt 
RESULT: RHKKKEKKKKKABBCCC 


a ALTERNATE IMPLEMENTATIONS : 
V«(B/V), (~B+V=Q)/V 
V<((+/~B)pQ), (B+V2#Q)/V 
Ve(-pV)t( (pV) 0@)s (V#Q)/V 

a ALTERNATE IMPLEMENTATION, WHEN Q IS THE PAD-ELEMENT: 


V+(-pV)t(V4Q)/V 


EXAMPLE: Vveo010230040 
Q<0 
RESULT: 00000014234 
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V<(((V4Q)11)-O70)0V 


OLO+i: V+(((V#Q)11)-1)0V 
OFO«0: V<+((V4Q)11)6V 


© THE COMPLEMENT IS: V+(((V=@)10)-OI0)6V 
EXAMPLE: Vet xxxAxBBaxCCCxkxnx' 
Q<txt 


RESULT: AKBBRACCCREKEKKKE 

A ALTERNATE IMPLEMENTATIONS : 
V+((140V#Q)/19V)-O20)6V 
ye (+/a\V=@) 60 
V«(((Q=6V)11)-1) OV 


a NOTE: IF “Q” IS A VECTOR OF DIFFERENT FILL-ELEMENTS, 
A REPLACE “V#Q” WITH “~VeQ” AND “Q#oV" WITH “~(oV)eQ 


(CONTD ON NEXT PAGE) 
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SHIFTING 4 VECTOR LV 
LEFT-JUSTIFYING V 
WHEN THE EILL-ELEMENT IS 2 (CONTD) 
a SPECIAL CASE IMPLEMENTATION: 


WHEN V IS RIGHT-JUSTIFIED AND THERE ARE NO 
A EMBEDDED FILL-ELEMENTS Q 


D 


V+(-+/V#Q) OV OR V+(-V+.4Q)OV © 
EXAMPLE: Vet axxx xk xALASKA' 
Q«txt 


RESULT: ALASKAKKKKKKK 
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WITHIN A ELELD OF PAD-ELEMENTS QF WIDTH W 
WtV 
A NOTE: IF W< pV, V WILL BE TRUNCATED ON THE RIGHT 
EXAMPLE: V+ur7 
W<12 
RESULT: 123456700000 


A ALTERNATE IMPLEMENTATION: 


WtV.,Wo@ [Q+0 OR Q«' *] 
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t 


———S = SS See oe ee Son coe Se ee 


V+VLYVz4Q] 
EXAMPLE: Vel aexxAxeBBuxCCCaxkxx' 
Q<txt 
RESULT: ABBCCORRRKEKKKKKK 


a ALTERNATE IMPLEMENTATIONS: 
V<(B/V), (~B+V4Q)/V 
V<(B/V), (+/~B+V4Q )pQ 
V<( pV) 4 (V#Q)/V).(9V)pQ 
a ALTERNATE IMPLEMENTATION, WHEN Q IS THE PAD-ELEMENT: 
V+( pV) t(V4Q)/V 
EXAMPLE: VEO. 0) 4, 02. 3: 00 A 6 


Q+0 


RESULT: 1234000000 


® 
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ee ee 


Sa ee ee ee ee em en eo —— = 


VLOlI]<VLTI 
EXAMPLE: V+i3 56 35 44 24 60 78 
T<2 5 COro0<1] 
RESULT: 143 21 35 44 56 60 78 


Aa NOTE: IF 2<pl, THAIS WILL REVERSE THE POSITIONS OF 
A THE GROUP OF ELEMENTS 
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See Sao en 


MUST FIRST GENERATE A LOGICAL VECTOR P DEFINING THE 
FIELD PARTITION OF V, WITH A 1-BIT FOR THE 1ST 
ELEMENT OF EACH FIELD OF V AND O'S OTHERWISE 
(SEE SECTION “GENERATING A LOGICAL VECTOR). 

ALSO oP +> pV 


DBD DDD 


D> 


CAUTION: ANY FIELD DELIMITERS MUST BE DELETED FROM V 
V<+VLOV+\P I KK 

EXAMPLE: V+'ABCDEFGHIS' 

Pe1 0014100010 


RESULT: CBADHGFEII 


ee Se Se arn ae Seen cw Srey Sane Am oe Om er 


**x ADAPTED FROM (2) BOOLEAN FUNCTIONS AND TECHNIQUES 
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Pa a a Se Ce ee 


V+VCAV] 


a CAUTION: BEFORE SORTING, MAY HAVE TO USE “V+,V™ 


ee 


i) LO ENSURE THAT V IS A VECTOR 


EXAMPLE: V*77 29 42 3 18 81 


— a Fn ee 


RESULT: 3.18 29 42 77 81 


Pete Sen Se oe See Se 


a NOTE: CAN USE “I*+AV” TO SORT ANOTHER VECTOR “W" WHOSE 
© ELEMENTS CORRESPOND TO V, I.E.: WWI] 


V+VLYVI 
RESULT 1-97 4S 29 48.3 
Aa NOTE: IN SUBSEQUENT TECHNIQUES, A DESCENDING SORT 
a MAY BE OBTAINED BY SUBSTITUTING Y FOR 


425-5 Ee ee 


V+VLAVxT] kk 


ee ~~ of 


a FOR ASCENDING SORT, SET “T+1"; FOR DESCENDING, “T<71 
EXAMPLE: Te" 4 


i toe oy oe Se ae 


RESULT: 81 77 42 29 18 3 


ee 


Ls) 


QRTING & NUMERIC VECTOR 


SORTING THE ELEMENTS OF VY WITHIN THE ELELDS OF VY 


an ae sony eae Som 


MUST FIRST GENERATE A LOGICAL VECTOR P DEFINING THE 
FIELD PARTITION OF V, WITH A 1-BIT FOR THE 18ST 
ELEMENT OF EACH FIELD OF V AND O'S OTHERWISE 
(SEE SECTION “GENERATING A LOGICAL VECTOR’). 

ALSO pP ++ oV 


aD» DDD 


> 


CAUTION: ANY FIELD DELIMITERS MUST BE DELETED FROM V 
ZN ASCENDING ORDER 
V+VLSCAC+\P)CS+AVII) xx 
EXAMPLE: V+i0987654324 
P11 0012132000310 
RESULT: 89107345612 
A ALTERNATE IMPLEMENTATION, FOR NUMBERS > 0: 


V+VLAV+t+\Px/V] 


a THE SORT INDICES “WITHIN EACH FIELD CAN BE 
a GENERATED VIA: 


I+TO+SCAC+\P)CS*«AVII-[\Px19P xk 


RESULT: Ce aes ee ce a [oro+1] 


xx ADAPTED FROM (2) BOOLEAN FUNCTIONS AND TECHNIQUES 
(CONTD ON NEXT PAGE) 
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SORTING A VECTOR Y¥ 


an ee Sar Sn See Som Se ke Same ame See seme Sms Sn aly ny Se ae ey ee Se ee ey 


ee ee ae ee Se Se ee ee Se 


V+VOESLAC+\P)CS<9VII) kk 
EXAMPLE: V+1 2345678910 
Pe1 00141100010 
RESULT 321448765109 


a ALTERNATE IMPLEMENTATION, FOR NUMBERS > 0: 
V+VLYV++\Px-[/V] 

a LIKEWISE THE SORT INDICES “WITHIN THE FIELDS” ARE: 
I<OIO+SLA(+\P)CS+¥VII-[\Px.pP * 

RESULT: 2141003214010 [Or0+0] 


x* ADAPTED FROM (2) BOOLEAN EUNCTIONS AND TECHNIQUES 
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SORTING 4 VECTOR YV 
SORTING A NUMERIC VECTOR 


DETERMINING THE RANK-QRDER R QE THE ELEMENTS OF 


A pR «+> pV 
a RCI] IS THE RANK OF VII] IN V, I.E., THE INDEX 
a OF VLI] IN A SORTED V 


a NOTE: THIS IS A “KERNEL APL OPERATION 

EXAMPLE: V+ 148 149 152 157 153 160 143 
V+V, 137 146 154 155 147 150 145 

RESULT: 67101311 14 214912583 


aA ALTERNATE IMPLEMENTATION: 


R<VOUAVIVV 


RESULT: 985244413 144 11 63107 12 
a ALTERNATE IMPLEMENTATION: 


R<eVLWVIiV 
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SORTING 


A 


VECTOR YV 


SORTING A CHARACTER VECTOR 


a NOTES: 


A 


DBDDDDBD 


1. NON-NUMERIC DATA MUST BE ENCODED AS NUMBERS IN ORDER 
TO BE SORTED. 


2. THE NUMERIC SORT OPERATIONS CAN BE MODIFIED FOR 
SORTING A CHARACTER VECTOR V BY REPLACING “AV” WITH 
THE “KERNEL APL OPERATION “ASSEQ.V™ (SEE BELOW 
FOR POSSIBLE SSEQ’). LIKEWISE FOR ¥. 


3. THE SORT SEQUENCE (SSEQ) IS USER-DEFINED. “BLANK™ 
MUST BE POSITIONED WHERE APPROPRIATE. 


4. GAUTTON: OAV IS SYSTEM DEPENDENT. THE FOLLOWING 


SORT SEQUENCES WITH OAV ARE FOR APLSY. 


POSSIBLE SORT SEQUENCES (SSEQ): 


SSEQ*«'ABCD...WXYZA 0123456789' - EXPLICIT DEFINITION 
SSEQ*UAV - SYSTEM DEFINITION: LETTERS (PLAIN AND 
UNDERSCORED), NUMBERS, BLANK 
SSEQ«' ',0AV - BLANK, LETTERS, NUMBERS 
SSEQ+(64t8640AV),'O' - LETTERS, NUMBERS, SPECIAL CHARS 
(SEQUENCE FOR LABELS) 


OR ANY OTHER SEQUENCE OF ANY CHARACTERS. 


MOVING CHARACTERS NOT IN THE SORT SEQUENCE TQ END OF V 


V+ VLASSEQ1V] 


EXAMPLE: V«+'PROBLEM DEFINITION: (I#J)+Cf 52° 


eo ee oon oe 


SSEQ+'ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789' 


RESULT: BCDEEFIITIIJLMNNOOPRT 25:20) +f 


NOTE: SUBSTITUTE “Y FOR “hk” TO OBTAIN A DESCENDING SORT 


(CONTD ON NEXT PAGE) 
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SORTING 4 VECTOR V 
SORTING A CHARACTER VECTOR (CONTD) 
RELETING CHARACTERS NOT IN rae SORT SEQUENCE 
VeVL(ILs1<C110+9 SSEQ) /J+hI+SSEQ1V] 
RESULT: BCDEEFIIIISLMNNOOPRT 25 
a ALTERNATE IMPLEMENTATION: 


V+VUASSEQIV+(VeSSEQ)/V] 
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SORTING A VECTOR L 
MERGING 2 NUMERIC VECTORS IN ASCENDING ORDER 
V+VLAV*V1,V2] 
ee Vi+53 25 98 33 86 
Y2«42 79 17 101 64 


RESULT: 17 25 33 42 53 64 79 86 98 101° 


a NOTE: SUBSTITUTE “Y" FOR “hk” TO OBTAIN A DESCENDING 
A MERGE 
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MERGING 2 VECTORS USING THE PATTERN IN LOGICAL VECTOR L 
V+(V1,V2)C4YZ] 


A 1i'S IN L DESIGNATE POSITIONS FOR ELEMENTS OF V1, 
A O's FOR V2 
a pL «<> pV1,72 
EXAMPLE:  Vi+«'AcpG! 
V2<'BEFt 
iei 01414004 


RESULT: ABCDEFG 
A ALTERNATE IMPLEMENTATIONS: 
V<+(V2,V1)CAAZI 


V+ZL\V1 
VE CL) /1pVI<V2 KK 


*x* ADAPTED FROM (1) ZHE APL IDIOM LIsz 
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SORTING A 


VECTOR Y 


V3+,V71,CO70+0.5] V2 


OrFo<i: v3<,V1,01.5] V2 
OFo+0: V3+,Vi,£0.5] V2 


a NOTE: AXIS-NUMBER DECIMAL-PART IS A DECIMAL VALUE 


A BETWEEN 0 AND 1;- °0.5 SHOWN HERE 
EXAMPLE: Vi+i 357 9 

V2<2 4 6 8 10 
RESULT: 12345678 910 
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COMPUTING VALUES FROM A VECTOR V 


WHEN THERE ARK NO ELELD DELIMITERS 
® FROM FIELDS OF IDENTICAL ELEMENTS © 
WeI-~140,2«(~0I0)+(((14V)4 14V).1)/1pV 


a “I CONTAINS THE ORIGIN-1 INDICES OF THE LAST 
® ELEMENTS IN EACH FIELD 


A NOTE: MAY HAVE TO SORT V FIRST TO PRODUCE THE FIELDS 
EXAMPLE: V«+'BBADDDDCCC* 


RESULT: 214 3 
W«(I,1t+pV)-1+0,I2+(~020)+(V=Q)/19V 

a ASSUMES THAT V CONTAINS NO TRAILING DELIMITERS Q 

9 (UNLESS THERE IS AN EMPTY FIELD) 


EXAMPLE: VECTOR OF FIELDS DELIMITED BY COMMAS 


V+'KR235,RT71,32,TEST VARIATIONS, ,9/27/78' 
Q<t,t 

RESULT: 5321507 

© ALTERNATE IMPLEMENTATIONS: 


WeI-14+7140, [#(~0I0)+((V=Q),1)/1440V 


W+I-1+ 140, I+(~OI0)+(U=Q)/1pU+V.Q 
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COMPUTING VALUES EROM A VECTOR V 


= ee Se 


a SETS OF IDENTICAL ELEMENTS 
S+W- 140, W+(V2414V,0)/+\V 


A CAUTION: ANY FIELD DELIMITERS MUST BE DELETED FROM V 


EXAMPLE: V+2 255 544143 3 3 


RESULT: 415414 9 


a TO SUM THE ELEMENTS OF ANOTHER VECTOR "X° WHOSE | 
a ELEMENTS CORRESPOND TO V, SUBSTITUTE ~+\X~ FOR “+\V 


a ALTERNATE IMPLEMENTATIONS: 
S<W--140,W<(((14V)4#° 147) ,1)/4+\V 


S+(V414V,0)/Vxt+/Vo.=V 
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COMPUTING VALUES FROM A VECTOR VY 
SUMMING SEIS QF ELEMENTS QF VY 


SEIS OF ELEMENTS NOT IN FLELDS 


TYPE 1: SETS OF IDENTICAL ELEMENTS 


S<V+.xVo.=(CipV)=ViV)/V ak 
EXAMPLE: V+2 54132535 3 
RESULT: 4145449 


TYPE 2: SETS DEFINED BY VECTOR I 
SeV+.xTo.=((Cripl)=Lir)/I oe 


a VECTOR “I” DEFINES THE SETS IN V BY IDENTICAL ELEMENTS. 
ALL ELEMENTS OF V WHOSE CORRESPONDING ELEMENTS IN I 
0 ARE THE SAME COMPOSE A SET; oV ++ pl 


a> 


8 pS <> THE NUMBER OF SETS DEFINED BY I 


IF “I” CONSISTS OF POSITIVE INTEGERS, AND ALL INTEGERS 
OF “if/I” OCCUR IN I, THEN THIS TECHNIQUE CAN BE 
a SIMPLIFIED TO: 


D> Dd 


S<V+.xTo.=1f /I ax 
EXAMPLE: V+ 72 78 94 83 85 83 76 94 75 
I< 22 44 41 55 11 22 55 55 22 


RESULT: 230 78 179 250 


xx ADAPTED FROM (1) ZHE APL IDIOM LIST 
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COMPUTING VALUES FROM A VECTOR VY 
DETERMINING THE PAIRWISE DIFFERENCES D IN V 


D+(14V)- 147 


A pD <> (pV)-1 
EXAMPLE: V+1 4 916 25 36 49 64 


RESULT: S67 S a 2304'S 
9 ALTERNATE IMPLEMENTATION: 


D<14V-"106V 


a TO INCLUDE THE 1ST ELEMENT OF V IN THE RESULT [oD <> pVI]: 
D<V--140,V 
RESULT: 413579 41 13 15 


a NOTE: THESE ARE “KERNEL APL OPERATIONS 


80 | 


AVG+(+/V)4109,V ak 


a WILL PROCESS A SCALAR AND AN EMPTY VECTOR (0 
EXAMPLE: V+86 81 92 73 68 89 


RESULT: 81.5 


ee a le oe ae Sy 


= 


81 


eV) 


ee ee eS ee eee ee ee 


oe ae cee Fae Sle eS Sa Te Sy Sn a Sew Sori Se ry ree een een srs em Sen Sy ens em le Sey ee em em 


a THE SIGNIFICANCE OF CERTAIN SCAN OPERATIONS IS AS 
A FOLLOWS [ADAPTED FROM (1) ZHE APL IDIOM LIST]: 


EXAMPLE: V+13005102 

+\V = PROGRESSIVE SUM: 14 4 4 Q re 10 12 
x\V = +=PROGRESSIVE PRODUCT: 13000000 
[\V = PROGRESSIVE MAXIMA: 13335555 
L\V = PROGRESSIVE MINIMA: 4830-0: 0 0 20-0 


9 SPECIAL CASE: 


-\iNW = ALTERNATING SERIES: (N+7] 1°12 °23 ° 34 


a ALTERNATE IMPLEMENTATIONS FOR “PLUS-SCAN , WITHOUT 
A USING THE SCAN OPERATOR “+\": 


S<V+.xTo.<I<1pV 


D<«(-pT+-pS<V)t 1 
LP:S<S+T+D+8 
+(2<"14D«2xD)/LP KK 


xx ADAPTED FROM (3) USE AND MISUSE QF APL 
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COMPUTING VALUES FROM A VECTOR VY 
PERFORMING LOGICAL SCAN QPERATIONS OW VY 


a THE SIGNIFICANCE OF CERTAIN SCAN OPERATIONS IS AS 
A FOLLOWS [ADAPTED FROM (1) THE APL [DIOM LIST): 


an Se eee ae ee ae ee 


EXAMPLE: V+o00010110140 


V\V = ALL 1'S STARTING WITH THE FIRST (LEFTMOST) 1: 


oO0004 32141414144 


<\V = ALL O'S EXCEPT? THE FIRST (LEFTMOST) 1: 
000014000000 
2\V = ALTERNATING 0'S AND 1'S UNTIL FIRST 1; THEN 
ALL SAME AS LAST DIGIT: 
Oi10a1742 41414191 
=\V = ALTERNATING FIELDS OF 1'S AND 0'S, CHANGING 
TO THE COMPLEMENT AS OF EACH 0. FIRST FIELD 
OF O'S OCCURS STARTING WITH FIRST 0 [Lots IV V 
DESIGNATE 1ST ELEMENTS OF FIELDS IN RESULT]: 


0101120001410 


EXAMPLE: Veitiooitoo001010 


ANY = ALL O'S STARTING WITH THE FIRST (LEFTMOST) 0: 


1132000000000 0 


(CONTD ON NEXT PAGE) 
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Fiaey y Sae Sales Soe ke Seen Some 


EXAMPLE: Veil dt 6040 0-04.90 4.0 (CONTD) 


1A 

=a 

S 
" 


ALL 1'*S EXCEPT THE FIRST (LEFTMOST) 0: 


1itoitaiwztajaiizadiaizi 


>\V = ALTERNATING 1'S AWD O'S UNTIL FIRST 0; THEN 
ALL SAME AS LAST DIGIT: 
Totartaiairtiiratrtiaiaizy 
#\V = ALTERNATING FIELDS OF 1'S AND 00'S, CHANGING 


TO THE COMPLEMENT AS OF FACH 1. FIRST FIELD 
OF 1'S OCCURS STARTING WITH FIRST 1 [1'tS INV 
DESIGNATE 18ST ELEMENTS OF FIELDS IN RESULT]: 


1011414000021 0 0 


€ REPETITIVE FXECUTION OF “#\" ON A LOGICAL VECTOR 
a WHICH INITIALLY HAS ALL 1'S WILL PRODUCE THE 


®9 FOLLOWING BIT-PATTERNS: ** 
411214111111111111 -00000000000000090 
41010101010101010 © © 0 9 © © © Oo 
1100110011001100 00 00 ©0 00 
1000100010001000 ° ° ° ° 
11110000111170000 e000 e000 
4010000010100000 a) o 0° 
1100000011000000 0° "90 
1000000010000000 ° ° 
14111111100000000 e0000000 
1010101000000000 0 © © 0 
1100110000000000 90 86000 
1000100000000000 ° ° 
1111000000000000 oo0°0 
1010000000000000 o 0° 
4100000000000000 9° 
1000000000000000 ° 


xx ADAPTED FROM (2) BOOLEAN FUNCTIONS AND TECHNIQUES 


REPLACING ELEMENTS OF A VECTOR Y 
WITH ELEMENT @ 
VE( FEST )/1pVI<Q 


a THE “TEST” MUST PRODUCE A BOOLEAN RESULT (E.G., 
USING A LOGICAL OR RELATIONAL EXPRESSION) WHICH 
IS THE SAME LENGTH AS V 


> dD 


a IF 2<pQ@, Q MUST CONTAIN THE SAME NUMBER OF ELEMENTS 
a AS THOSE TO BE REPLACED IN V 


EXAMPLE: V+H2 “75 073 27 00 7°59 
TEST+<V<0 
Q+0 

RESULT: 42000 27000 


0 ALTERNATE IMPLEMENTATION: 
Ve(eV)o( TEST )eV,COIO-0.5] @ 
a Q@ IS A SCALAR OR A VECTOR WHERE 0Q@ +> pV 


WHEN Q IS A VECTOR AND (p@)<pV, Q MUST BE EXPANDED 
TO THE LENGTH OF V, E.G., WITH PAD-ELEMENTS: 


> D 


¥+(pV)pBeV,[OI0-0.5] (B+ TEST )\Q 


A NOLTE: AXIS-NUMBER DECIMAL-PART IS A DECIMAL 
A VALUE BETWEEN 0 AND 13 0.5 SHOWN HERE 


(CONTD ON NEXT PAGE) 
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Fame ee oe cay Se paw ae ae ore ace Fy 


a ALTERNATE IMPLEMENTATION, FOR NUMERIC VECTORS: 
V+ (VxeL )+QxL+TEST 


EXAMPLE: V+4u2 ~75 0° 3 2700 759 
TEST<V<s0 
Q+2 


RESULT: 4222 2 27 2 2 2 
p SPECIAL CASE IMPLEMENTATIONS, REPLACING o's WITH Q 
V+V+QxV=0 ** 


V+V+(V=0)\Q 


EXAMPLE: @«99 


RESULT: 42 ~75 99 ~3 27 99 99 ~59 


**x ADAPTED FROM (1) ZHE APL IDIOM LIST 


== my eee Se ee 
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WITH THE PAD-ELEMENT (0 OR BLANK) 


V+B\ (B<nTEST)/V 


EXAMPLE: REPLACING '/* WITH BLANKS 


V<+ti12/31/78' 
TEST<V=t/'t 


RESULT: 12 31 78 


NOTE: THIS TECHNIQUE ALLOWS FURTHER PROCESSING 
OF V ON THE SAME LINE, IN CONTRAST TO 
REPLACEMENT BY INDEXING 
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PLACING MULTIPLE OCCURRENCES OF AN QLD SUBSTRING QS 
H A NEW SUBSTRING NS 


a MUST FIRST FIND THE STARTING INDICES I OF THE 

A OCCURRENCES OF THE OLD SUBSTRING (SEE TECHNIQUES 
a “FINDING THE STARTING INDICES ..."). THESE 

Aa INDICES MUST BE IN ASCENDING ORDER. 


D> 


THEN COMPUTE THE ADJUSTED STARTING INDICES OF THE 
OCCURRENCES OF THE OLD SUBSTRING 


D> 


I+(I-010)+((.WI*pI)-O0)x-(OL«p0S)-pNS 
NI«NI+K<«QIO-1 
LP: (NI<K+K+1)/0 
® SUBSTITUTE THE NEW SUBSTRING IN PLACE OF THE OLD ONE 


Ve(PtV) WS, (OL+P+ITKI)+V 


+LP 
EXAMPLE: V+'"RV<((1pRV) =RViRV)/BV'! 

OS<'RY't 

NWS+'FACTORS* 

I*i 8 1215 19 C[Oro+1] 
RESULT: FACTORS+( (1p FACTORS ) =FACTORS 1 FACTORS )/ FACTORS 
a NOTE: IF “NS” IS AN EMPTY STRING, THE OLD STRING IS 
© DELETED FROM THE VECTOR 


A ALTERNATE IMPLEMENTATION: 


De~(ipV)e(L-O20)°.+1908 
R+((ripV)eL)o.A(pNS)p1 
V<+(,D,R)/,V,(( pV), pS ) pws 
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DELETING ELEMENTS EROM A VECTOR L& 
DELETING ALL QCCURRENCES OF ELEMENT @ 


‘Sone Se Sian cag Se Se ee — Se 


EXAMPLE: DELETING BLANKS 


Vet M35 , M4HO, 42.5,T7EST, 4/23/78¢ 
Q«'t 1 
RESULT: M35,M40,42.5,7EST, 4/23/78 


® ALTERNATE IMPLEMENTATIONS, WHEN Q IS A VECTOR: 
Ve(~VeQ)/V. 
V+(A/Vo.#Q)/V 
EXAMPLE: Ve IMSS MUO, 42.5, 2EST,4/25/78 
«tl iyst 


RESULT: | M35M404257TEST42378 


a NOTE: “~VeQ™ IS A “KERNEL” APL OPERATION 
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V<(((V#Q)11)-OF0)+V 


OLO<1: V+ (((V#Q)11)-1)47 
OF0<0: V<((V4Q)11)47 
a THE COMPLEMENT IS: V<(((V=Q)10)-OI0)+V 


ea NOTRE: “((V¥Q)11)-OLT0" IS A “KERNEL” APL OPERATION 
EXAMPLE: DELETING LEADING ZEROES 


V0 00223014 005700 
Q+0 
RESULT: 223014 005700 
a ALTERNATE IMPLEMENTATIONS: 
Ve(v\V4Q)/V 
Ve(+/aA\V=Q)+V 
V+((14+(V#Q)/1pV)-OT0)+V 


V+(((Q=6V)41)-1)4V 


a MOTE: IF “Q” IS A VECTOR OF DIFFERENT ELEMENTS, : 
a REPLACE “V#Q™ WITH “~VeQ” AND “Q#OV" WITH “~(oV)eQ 
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RELETING ELEMENTS FROM A VECTOR Y 
DELETING ALL TRAZTLING OCCURRENCES QF ELEMENT @ 
V+(OT0-(Q4OV)11)47 
O7FO0<1: V<l1-(Q@4oV) 11) 47 
OF0+«0: V+(-(Q4#bV) 11) 47 


Aa THE COMPLEMENT IS: V+(DI0-(@=6V)10)4V 


a MOTE: “QIO-(@#6V)11° IS A “KERNEL” APL OPERATION 
EXAMPLE: DELETING TRAILING ZEROES 


V+0 0 0 22 3014 00 57 0 0 
Q+0 
RESULT: 00022301400 57 
a ALTERNATE IMPLEMENTATIONS: 
V<(1-(V=Q)41)47 © KK 
V<( (7 14(V#Q)/1pV)+-0I0)+V 
Ve Ov\Q4OV)/V 


V+(-+/A\Q=O7 47 


a NOTE: IF aoe IS A VECTOR QF DIFFERENT ELEMENTS, 
A REPLACE “V#Q” WITH “~VeQ” AND “Q#oV" WITH “~(6V)eQ™ 


** ADAPTED FROM (1) THE APL IDIOM LIST 
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RELETING ELEMENTS FROM 4 VECTOR Y 


RELETING LEADING AND TRAILING OCCURRENCES OF ELEMENT @ 


Se Ss ow Se oe ee 


V+((B11)-070)+(OT0-(OB+V4Q) it )4+V 


OLO*«1: V<( (Brit y-1)¥(1-(OB+V4Q)11)47 
OLFO+0: V<CBi1)+(-(OB+V2Q )11)4V 


a THE COMPLEMENT IS: V+«((B10)-OI0)+(DIO-(oB+V=Q)10)4V 
EXAMPLE: DELETING ZEROES 


V+0 0 0 22:30 144 0 0 57 0 0 
Q«0 


RESULT: 29 3-0: 14 0.0 57 
a ALTERNATE IMPLEMENTATIONS: 


V+((142)-O7F0)¥(( 142«(V4Q@)/r19pV) +~0I0 tv 


V+((V\B)AQV\OB+V2Q)/V 
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V+(LV 141,2«V#Q)/V 


@ REDUNDANT = THE 2ND, 3RD, ETC., CONTIGUOUS OCCURRENCES 
EXAMPLE: DELETING ASTERISKS 


Vet xxAxexeexBBeCCCxxx! 
Qetxt 


RESULT: *AxBBxCCCx 


ae ae ie 


a NOTE: BOTH V+(LV1OL+V#Q)/V 

A AND V+(Lr1i¢L+V=Q)/V  (CTHE COMPLEMENT] 

a DELETE THE TRAILING OCCURRENCES OF Q ENTIRELY IF Q ALSO 
A OCCURS AS THE LEADING ELEMENT. THE LEADING OCCURRENCES 
a ARE DELETED WHEN... 1%... IS SPECIFIED. 

RESULT: *A*BBRCCC 


a MOTE: Lv 141,L AND LvibL [AND THEIR COMPLEMENTS] 
a ARE “KERNEL APL OPERATIONS 
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DELETING ELEMENTS FROM A VECTOR Y 


fe a ae ‘ee Se ee Se eee ee ee ee ee ee en ee 


Ve(1,(14V)# 14V)/V 


a9 REDUNDANT = THE 2ND, 3RD, ETC., CONTIGUOUS OCCURRENCES 


a NOTE: 
A IN 
fe] 


V+'AAABBCBBBAABCCCC 


ABCBABC 


THIS SELECTS THE 1ST OCCURRENCES OF ELEMENTS 
THE FIELDS OF REDUNDANT ELEMENTS. TO SELECT THE 


LAST OCCURRENCES: 


Ve(((14V)4% 14V),.1)/7 
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DELETING ELE 


MENTS FROM A VECTOR V 


QF ELEMENT @ 


V+(14L)+(La1OL<V=Q)/V 


EXAMPLE: DELETING BLANKS 


yet A BC DEF 
Q+'t t 


RESULT: A BC DEF GHIJ 
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GHIds 


t 


DELETING ELEMENTS FROM A VECTOR V 
DELETING THE ELEMENTS WITH INDICES I 
Ve(~CipV)elI)/V 
EXAMPLE: V+15 “37 0 22 "3 “19 8 
I+2 5 6 COr0<1] 
RESULT: 15 0 22 8 
a ALTERNATE IMPLEMENTATIONS : 


V+(AfITo.#19V)/V 


V<(ev4¢ATo.=1pV)/V 
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DELETING ELEMENTS EROM A VECTOR V 


ee See Se Save oe an ae Siw Se Sa Sy See ee pea Se Sm — Se am ae Sy Sin me Sa Se Se a Se 


V+(PtV), (L+P<I-OI0)+V 


OFO<1: V«(P4V), (L+P+I-1)4+V 
OF0+0: V<(Ity), (LtlI)+V 


EXAMPLE: V<+'ABCDEFGHIJKIMNOP' 
I+8 [Or0+1] 
Lo4 

RESULT: ABCDEFGIMNOP 


ALTERNATE IMPLEMENTATIONS: 


» 


V+(OLO-I)oL4(I-OL0) ov 


> Dd 


NOTE: THE ABOVE IMPLEMENTATION WILL DELETE A SUBSTRING 
WRAPPED AROUND THE ENDS OF V 


V+VE (iP), ((L+P+I-O070)-pV)tipVI 


Ve(~(r1pV)e(2-OI0)+1L)/V 


Aa TO DELETE MULTIPLE SUBSTRINGS WITH SAME LENGTH: 


Ve(~CripV)e(T-OI0)°.+iL)/V 


EXAMPLE: I+1 6 14 COro+o] 


RESULT: AFKP 


a WOTE: TO DELETE MULTIPLE OCCURRENCES, SEE ALSO THE 
A TECHNIQUE REPLACING MULTIPLE OCCURRENCES ... 
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sm aoe ae om Se Soe ee ay fae Sn Se em _—— ee ee eee 


ae ae eae an foo on eg Sa == 


Ve((ipV)=ViV)/V 


&§ ELEMENTS OF RESULT OCCUR IN SAME ORDER AS THEIR FIRST 
9 OCCURRENCE IN V 


EXAMPLE: Ve'TENNESSEE'* 


oe ee ae ae aoe 


RESULT: TENS 
A ALTERNATE IMPLEMENTATION: 
V+((2p0T0)&<\Vo.=V)/V kK 
A ALTERNATE IMPLEMENTATION, ONLY WHEN V IS NUMERIC 


V+(1,(147)# 14V7)/V+VCAVI 


® ELEMENTS OF RESULT ARE SORTED IN ASCENDING ORDER 
EXAMPLE: Vee 3214321 


RESULT: 1234 


*x ADAPTED FROM (1) THE APL IDIOM LIST 


(CONTD ON NEXT PAGE) 
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DELETING ELEMENTS EROM A VECTOR Y 


Se ee San ee ey ew ae an Sle 


KY 
vam 
Q 
9 
= 
WW 
ss) 


DELETING DUPLICATE OCCURRENCES OF ALL ZLEMENT 


A SPECIAL CASE IMPLEMENTATIONS: 

A WHEN V CONTAINS INDICES AND (pV)>C/V 
B+(([/V)+~OI0 )p0 
BCV]+«1 
V<B/1pB 

ea ELEMENTS OF RESULT ARE IN ASCENDING ORDER 


a CAUTION: THIS IS NOT EFFICIENT IF [/V IS MUCH GREATER 


ae nm ae oe ae 


A CAUTION: THE INDICES IN VY MUST BE GENERATED IN THE 


en ae Se oy oe 


A SAME ORIGIN IN WHICH THE CODE IS TO BE EXECUTED 


EXAMPLE: Vs H4 3332244 4 4 355 2 2 2 


a a Sa See ae a 


RESULT: 1-23 4-5 LOr0+1] 


ae ALTERNATE IMPLEMENTATION: 


V+(NeV) /N«1. C00 /V) +°0T0 
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Staples can cause problems with automated mail sorting equipment. 


Note: 


Please use pressure sensitive or other gummed tape to seal this form. 


, : READER’S 
APL Programming Guide COMMENT 


FORM 
G320-6103-0 


This manual is part of a library that serves as a reference source for systems analysts, programmers, and 
operators of IBM systems. This form may be used to communicate your views about this publication. 
They will be sent to the author’s department for whatever review and action, if any, is deemed appropriate. 
Comments may be written in your own language; use of English is not required. 

IBM may use or distribute any of the information you supply in any way it believes appropriate with- 
out incurring any obligation whatever. You may, of course, continue to use the information you supply. 
Note: Copies of IBM publications are not stocked at the location to which this form is addressed. 

Please direct any requests for copies of publications, or for assistance in using your IBM system, to 
your IBM representative or to the IBM branch office serving your locality. 
Possible topics for comment are: 


Clarity Accuracy Completeness Organization Coding Retrieval Legibility 


If you wish a reply, give your name and mailing address: 


What is your occupation? 
Number of latest Newsletter associated with this publication: 
Thank you for your cooperation. No postage stamp necessary if mailed in the U.S.A. (Elsewhere, an IBM 


office or representative will be happy to forward your comments or you may mail directly to the address: 
in the Edition Notice on the back of the title page.) 


G320-6103-0 


Reader’s Comment Form 


Fold and tape Please Do Not Staple 


Business Reply Mail 


No postage stamp necessary if mailed in the U.S.A. 


Postage will be paid by: 


international Business Machines Corporation 
Department 824 

1133 Westchester Avenue 

White Plains, New York 10604 


Fold and tape Please Do Not Staple 


International Business Machines Corporation 
Data Processing Division 
1133 Westchester Avenue, White Plains, N.Y. 10604 


IBM World Trade Americas/Far East Corporation 
Town of Mount Pleasant, Route 9, North Tarrytown, N.Y., U.S.A. 10591 


IBM World Trade Europe/Middle East/Africa Corporation 
360 Hamilton Avenue, White Plains, N.Y., U.S.A. 10601 


Fold and tape 


First Class 
Permit 40 


Armonk 
New York 
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Fold and tape 
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International Business Machines Corporation 
Data Processing Division 
1133 Westchester Avenue, White Plains, N.Y. 10604 


IBM World Trade Americas/Far East Corporation 
Town of Mount Pleasant, Route 9, North Tarrytown, N.Y., U.S.A. 10591 


IBM World Trade Europe/Middle East/Africa Corporation 
360 Hamilton Avenue, White Plains, N.Y., U.S.A. 10601 
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